10 SCREEN 1,0:COLOR 8,0:CLS:KEY OFF
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
30 LOCATE 7,1
40 PRINT FNCEN$("ORIGAMI",40)
50 PRINT:PRINT
60 PRINT FNCEN$("The Japanese Art",40)
70 PRINT FNCEN$("of",40)
80 PRINT FNCEN$("Paperfolding",40)
90 PRINT:PRINT:PRINT
91 PRINT FNCEN$("Volume 1",40)
92 PRINT:PRINT:PRINT:PRINT
100 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
110 PRINT FNCEN$("All Rights Reserved",40)
120 LINE(5,10)-(315,190),3,B
130 FOR K=1 TO 3500:NEXT K
140 CLS
150 LOCATE 10,1
160 PRINT FNCEN$("Press <1> for INTRODUCTION.",40)
170 LOCATE 12,11
180 PRINT "   <2> for MAIN MENU."
190 LOCATE 14,11
200 PRINT "   <3> for SHAREWARE."
210 LOCATE 16,11
220 PRINT "   <4> for STATISTICS."
230 LINE(10,10)-(310,190),3,B
240 E$=INPUT$(1)
250 IF E$<"1" OR E$>"4" GOTO 240
260 SEL=VAL(E$)
270 COMMON SEL
280 CLS
290 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
300 LINE(70,75)-(250,125),3,B
310 ON SEL GOTO 320,330,340,350
320 CHAIN "INTRO"
330 CHAIN "main"
340 CHAIN "share"
350 CHAIN "stats"