home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 November
/
1985-11.d64
/
gobbledygook
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
50 lines
100 poke53280,0:poke53281,0:print"[147]"
110 printtab(7);"screen typing"
120 print" f1 [146] clear screen":print" f3 [146] change letter color"
130 print" f5 [146] change border color":print" f7 [146] change screen color"
140 dimp$(12):l$="[144][159][156][158][129][149][150][151][152][153][154][155]":printchr$(8)
150 input"enter number of people";n:ifn>12then150
160 fori=1ton
170 print"person number"i"'s name";
180 inputp$(i):p$(i)=left$(p$(i),30):nexti
190 input"number of seconds per turn";d:d=int(d):ifd<30then190
200 ti$="000000":t1=0:l=0:b=0:s=0:p=0:tu=1
210 rem typing loop
220 geta$
230 ifti>t1then510
240 ifa$=""then220
250 ifasc(a$)<133then270
260 onasc(a$)-132goto340,380,440,470
270 ifa$=chr$(20)thenprintchr$(29)chr$(20)chr$(20)mid$(l$,l+1,1)" [146][157]";:goto320
280 ifa$=""ora$=""ora$=""ora$="[147]"ora$="[145]"ora$="[157]"ora$=chr$(148)then220
290 ifa$=chr$(34)thena$=chr$(39)
300 ifa$=chr$(13)ora$=chr$(141)thenprintchr$(29)chr$(20);
310 printmid$(l$,l+1,1);a$;" [146][157]";
320 ifpeek(1063)<>96then340
330 goto220
340 rem clear screen
350 print"[147]";mid$(l$,l+1,1);p$(p):poke1063,96
360 iftu=1thenpoke1024+len(p$(p)),42:poke55296+len(p$(p)),l
370 goto220
380 rem change letter color
390 l=l+1:ifl>15thenl=0
400 ifl=sthen390
410 forq=0to2:fori=55296+qto56295step3:pokei,l:nexti,q
420 getj$:ifj$<>""then420
430 goto220
440 rem change border color
450 b=b+1:ifb>15thenb=0
460 poke53280,b:goto220
470 rem change screen background color
480 s=s+1:ifs>15thens=0
490 ifs=lthen480
500 poke53281,s:goto220
510 rem next turn
520 iftu=0then560
530 p=p+1:ifp>nthenp=1
540 poke53280,0:poke53281,0:l=1:b=0:s=0
550 t1=t1+(d*60)-720:tu=0:goto340
560 rem 12 more seconds warning
570 tu=1:t1=t1+720:poke1024+len(p$(p)),42:poke55296+len(p$(p)),l
580 goto220