home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 182 / 182.d81 / b.riddles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  30 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 20 print"[147][159]":poke53280,0:poke53281,0
  3. 30 gosub500
  4. 40 sys57812"f.riddles",dv,0:poke780,.:poke781,.:poke782,232:sys65493
  5. 50 sys57812"f.herne",dv,0:poke780,.:poke781,.:poke782,240:sys65493
  6. 60 sys57812"mouse2.1 7k 1000",dv,0:poke780,.:poke781,.:poke782,16:sys65493
  7. 70 sys57812"qs driver c000",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  8. 80 sys57812"q.parting",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  9. 90 ml=4096:sysml
  10. 100 sysml+201,"riddles",dv,16384
  11. 200 print"[144]load"chr$(34)"riddles of herne"chr$(34)","dv
  12. 210 print"run"
  13. 220 sysml+3:poke44,80:poke20480,0
  14. 230 poke631,13:poke632,13:poke198,2:end
  15. 500 poke214,10:print
  16. 510 print" [155][176][174]"tab(37)"[176][174]"
  17. 520 print" [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
  18. 530 fori=.to8:print" [221][221]                                  [221][221]":next
  19. 540 print" [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
  20. 550 print" [173][189]"tab(37)"[173][189]"
  21. 600 poke214,12:print
  22. 610 fori=.to8:reada$:printtab(20-len(a$)/2)""a$:next
  23. 620 return
  24. 1000 data "[210][201][196][196][204][197][211] [207][198] [200][197][210][206][197]"
  25. 1010 data "by: [205]erry [205]an [211]oftware",
  26. 1020 data "(c) 1999 by [202] & [198] [208]ublishing, [201]nc.",
  27. 1030 data "[212]his program is not shareware or"
  28. 1040 data "in the public domain.",
  29. 1050 data "1-800-594-3370 or 1-318-221-8718"
  30.