home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 69 / 069.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 10 poke53281,0:poke53280,0:print"[147][159]":gosub1000
  4. 11 poke788,49:tq=ti:poke198,0
  5. 12 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  8. 16 geta$:ifa$=""and(ti<tq+250)then16
  9. 17 poke251,32:poke252,224:poke253,204
  10. 18 poke53280,0:sys51456:sys51459
  11. 19 l$="12345678"
  12. 21 v=53248
  13. 40 tq=ti:j=0:poke53370,0
  14. 41 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
  15. 70 geta$:ifa$=""and(ti<tq+250)then41
  16. 80 poke198,0:poke53371,0
  17. 82 pokev+21,0
  18. 90 poke157,0:load"presenter",dv
  19. 1000 print"[147][158]   [208][204][197][193][211][197] [196][207] [206][207][212] [205][193][203][197] [201][204][204][197][199][193][204] [195][207][208][201][197][211]"
  20. 1010 print"           [207][198] [212][200][201][211] [211][207][198][212][215][193][210][197]"
  21. 1020 print"[159]   [212]his software is protected by federal";
  22. 1030 print"copyright law.  [195]opying software for any";
  23. 1040 print"reason other than to make a backup is a
  24. 1050 [153]"violation of law.  right$ndividuals who make
  25. 1060 print"unauthorized copies of software may be
  26. 1070 [153]"subject to civil and criminal penalties."
  27. 1090 [153]"print        (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$, right$(NULL)len.,"
  28. 1100 [153]"openas a member of the (NULL)oftware (NULL)ublishers
  29. 1110 print"[193]ssociation ([211][208][193]), supports the
  30. 1120 [153]"industry's effort to fight the illegal
  31. 1130 print"copying of personal computer software.
  32. 1140 [153]"sys     (NULL)eport copyright violations to:
  33. 1145 print"     [211]oftware [208]ublishers [193]ssociation"
  34. 1150 print"   1101 [195]onnecticut [193]ve, [206][215], [211]uite 901
  35. 1160 [153]"           (NULL)ashington, str$len 20036":[142]
  36. 10000 d[178][194](186):n$[178]"0:star":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  37.