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