home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / mirror (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  924b  |  29 lines
  1. 1 poke53281,1:poke53280,5
  2. 5 print"[147][144]"chr$(142)"          loadstar presents:"
  3. 6 print"      mirror by frank colaricci"
  4. 7 print"          (c) copyright 1987"
  5. 10 rem c64 mirror - frank colaricci
  6. 15 printchr$(142);chr$(8)
  7. 20 a=828:rem relocatable
  8. 25 for i=a to a+87:read b:poke i,b
  9. 30 c=c+b:next
  10. 35 if c<>11844 then print"error":end
  11. 36 print"  press space to switch character sets"
  12. 37 print"                - or -"
  13. 38 print"    [return] to return to loadstar"
  14. 39 poke198,0:wait198,1:geta$:ifa$<>" "anda$<>chr$(13)then39
  15. 40 ifa$=" "thensysa:end
  16. 42 load"hello connect",8
  17. 44 :
  18. 45 data 173,014,220,041,254,141,014,220
  19. 50 data 165,001,041,251,133,001,169,000
  20. 55 data 133,251,133,253,169,208,133,252
  21. 60 data 169,048,133,254,162,008,134,250
  22. 65 data 160,000,177,251,162,008,106,038
  23. 70 data 002,202,208,250,165,002,145,253
  24. 75 data 200,208,239,230,252,230,254,198
  25. 80 data 250,208,231,165,001,009,004,133
  26. 85 data 001,173,014,220,009,001,141,014
  27. 90 data 220,173,024,208,041,240,009,012
  28. 95 data 141,024,208,169,048,133,056,096
  29.