start tok64 d64-LZiCEe
10 sq$="{home}{down*24}{reverse off}{black}"
15 :
20 DIMf1$(17),ff$(23),cu(38)
25 PRINT"{clear}":FORz=1TO39:z$=z$+" ":NEXT:z$="{reverse on}{156}"+z$:POKE53280,4:POKE53281,15
30 GOSUB145:tt$="{black} {yellow} {blue} ":rr$="{down}{left}{blue} {down}{left}{yellow} {down}{left}{black} ":bb$="{blue} {yellow} {black} "
35 ll$="{up}{left}{blue} {up}{left}{yellow} {up}{left}{black} ":FORtb=1TO12:t1$=t1$+tt$:b1$=b1$+bb$:NEXT:FORrl=1TO7
40 r1$=r1$+rr$:l1$=l1$+ll$:NEXT:t2$=RIGHT$(t1$,70)+LEFT$(t1$,2)
45 t3$=RIGHT$(t2$,70)+LEFT$(t2$,2):r2$=RIGHT$(r1$,4)+LEFT$(r1$,80)
50 r3$=RIGHT$(r2$,4)+LEFT$(r2$,80):b2$=RIGHT$(b1$,2)+LEFT$(b1$,70)
55 b3$=RIGHT$(b2$,2)+LEFT$(b2$,70):l2$=RIGHT$(l1$,4)+LEFT$(l1$,80)
60 l3$=RIGHT$(l2$,4)+LEFT$(l2$,80)
65 FORf1=1TO17:READf1$(f1):NEXT:f1=1
70 GOSUB160:GOSUB145:GOSUB170
75 IFf1<>1THENFORdd=1TO10:GOSUB130:NEXT:GOSUB175:GOTO100
80 PRINTsq$SPC(6)" hit any key to continue{.*3} {up}"
85 GETgt$:IFgt$=""THEN85
90 gt$="{down}":GOTO105
95 GOSUB160:GOSUB145:GOSUB170:IFf1>2THENGOSUB175
100 GETgt$:IFgt$=""THEN100
105 IFgt$<>"{down}"THENIFgt$<>"{up}"THEN100
110 IFgt$="{down}"THENf1=f1+1:IFf1>17THENf1=1:gt$="{down}"
115 IFgt$="{up}"THENf1=f1-1:IFf1<1THENf1=1
120 ONf1GOTO70,95,95,95,95,95,70,95,95,70,95,95,95,70,95,95,95
125 END
130 PRINT"{home}{right*2}{reverse on}"t1$"{home}{right*3}"r1$"{down}{left}"b1$l1$
135 PRINT"{home}{right*2}{reverse on}"t2$"{home}{right*3}"r2$"{down}{left}"b2$l2$
140 PRINT"{home}{right*2}{reverse on}"t3$"{home}{right*3}"r3$"{down}{left}"b3$l3$:RETURN
145 PRINT"{home}";:zz=0:FORz=1TO24:PRINTz$:zz=zz+40
150 POKE1023+zz,160:POKE55295+zz,4:NEXT:PRINTz$"{up}":POKE2023,160:POKE56295,4
155 RETURN
160 OPEN8,8,8,"0:"+f1$(f1)+",s,r":FORff=1TO23:INPUT#8,f2$:INPUT#8,f3$
165 ff$=f2$+f3$:ff$(ff)=ff$:NEXT:CLOSE8:RETURN
170 PRINT"{home}";:FORff=1TO23:PRINT"{right}"ff$(ff):NEXT:RETURN
175 PRINTsq$"{right*2}use crsr up/down to go back & forth{up}":RETURN
500 DATA cr/demo intro
505 DATA cr/text screen 2
510 DATA cr/text screen 3
515 DATA cr/text screen 4
520 DATA cr/text screen 5
525 DATA cr/text screen 6
530 DATA cr/prompt 3a
535 DATA cr/mod4 gfi
540 DATA cr/gf opt menu
545 DATA cr/prompt 4a
550 DATA cr/7 stud 2
555 DATA cr/casino craps
560 DATA cr/hustlers bluf
565 DATA cr/prompt 5a
570 DATA cr/magic pyramid
575 DATA cr/3d demo 2
580 DATA cr/tangled tubes
stop tok64
(bastext 1.0)