home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93a.d64 / diashow1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  687b  |  34 lines
  1. 0 REM
  2. 1 REM   ***** DIA-SHOW *****
  3. 2 REM
  4. 10 POKE53265,0
  5. 11 RESTORE
  6. 12 LO=PEEK(816)+PEEK(817)*256
  7. 20 IFA=0THENA=1:LOAD"DIA-1",8,1
  8. 30 IFA=1THENA=2:LOAD"SUPER-DUMP.OBJ",8,1
  9. 40 POKE53265,PEEK(53265)OR32
  10. 50 POKE53270,PEEK(53270)OR16
  11. 60 POKE53272,PEEK(53272)OR8
  12. 70 SYS37005
  13. 75 READNA$,M1,G1,B1:XX$=CHR$(63)+"PIC "+NA$
  14. 76 SYS(57812)XX$,8,1:POKE780,0:SYSLO
  15. 80 POKE53265,59
  16. 90 REM HAUPTSCHLEIFE
  17. 100 M=M1:G=G1:B=B1
  18. 102 READNA$,M1,G1,B1
  19. 105 IFNA$="X"THENRESTORE:GOTO102
  20. 110 XX$=CHR$(63)+"PIC "+NA$
  21. 130 FA=PEEK(34576)
  22. 140 POKE53280,FA:POKE53281,FA
  23. 150 SYS36864,32576,1024,1000
  24. 160 SYS36864,33576,55296,1000
  25. 170 SYS49152,96,32,32,M,G,B
  26. 175 SYS(57812)XX$,8,1:POKE780,0:SYSLO
  27. 180 POKE198,0:WAIT198,1
  28. 190 SYS49152,64,32,32,M,G,B
  29. 200 GOTO100
  30. 10000 DATA"A*",003,0,1
  31. 10001 DATA"B*",100,0,1
  32. 10002 DATA"C*",107,0,1
  33. 20000 DATAX,0,0,0
  34.