home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 195 / 195.d81 / b.mem-copy (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  702b  |  38 lines
  1. 10 poke56,144:clr:poke53281,0
  2. 12 print"[147][159][176][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][192][192][192][192][174]";
  3. 13 fori=0to22:print"[221]--------------------------------------[159][221]";:next
  4. 14 print"[173][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][192][192][192][189][157][148][192]"
  5. 16 fori=217to242:pokei,peek(i)or128:next
  6. 18 geta$:ifa$=""then18
  7. 20 gosub1000
  8. 30 print"[147]"
  9. 40 geta$:ifa$=""then40
  10. 50 gosub2000
  11. 60 geta$:ifa$=""then60
  12. 70 goto20
  13. 997 :
  14. 998 :rem store screen
  15. 999 :
  16. 1000 poke88,0:poke89,156
  17. 1010 poke90,0:poke91,8
  18. 1020 poke781,5:poke782,0
  19. 1030 sys41964
  20. 1040 poke88,0:poke89,148
  21. 1050 poke90,0:poke91,220
  22. 1060 poke781,5:poke782,0
  23. 1070 sys41964
  24. 1080 return
  25. 1997 :
  26. 1998 :rem restore screen
  27. 1999 :
  28. 2000 poke88,0:poke89,8
  29. 2010 poke90,0:poke91,156
  30. 2020 poke781,5:poke782,0
  31. 2030 sys41964
  32. 2040 poke88,0:poke89,220
  33. 2050 poke90,0:poke91,148
  34. 2060 poke781,5:poke782,0
  35. 2070 sys41964
  36. 2080 return
  37. 10000 d=peek(186):n$="0:b.mem-copy":open1,d,15,"s"+n$:close15:saven$,d:end
  38.