home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh07b.d64 / dia-show (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  903 b   |  41 lines
  1. 1800 IFA<3THENPRINT"[147]       BITTE EINEN MOMENT WARTEN !"CHR$(8)
  2. 1900 IFA=0THENA=1:LOAD"HIRES-EFFEKT 1",8,1
  3. 2000 IFA=1THENA=2:LOAD"BILD 1 .PIC*  ",8,1
  4. 2100 IFA=3THENA=4:GOTO6900
  5. 2200 IFA=4THEN7000
  6. 2300 IFA=5THENA=6:GOTO7500
  7. 2400 POKE52,32:POKE56,32
  8. 2500 E1=0:E2=64:L1=0:L2=33:BYTE=255
  9. 2600 GOSUB11600
  10. 5300 POKE781,12:SYS59903
  11. 5400 FORI=0TO12
  12. 5500 POKE781,12+I:SYS59903
  13. 5600 POKE781,12-I:SYS59903
  14. 5700 FORT=1TO60:NEXT
  15. 5800 NEXT
  16. 5900 POKE53281,4
  17. 6000 POKE53265,59
  18. 6100 POKE53272,27
  19. 6200 POKE53270,216
  20. 6300 E1=0:E2=220:L1=0:L2=5:BYTE=7
  21. 6400 GOSUB11600
  22. 6500 E1=0:E2=8:L1=0:L2=5:BYTE=2
  23. 6600 GOSUB11600
  24. 6700 SYS828,8192,17,1
  25. 6800 A=3:LOAD"HIRES-EFFEKT 2",8,1
  26. 6900 I=1
  27. 7000 SYS828,40960,8192,I*INT(6*RND(0))+1
  28. 7100 A$="BILD"
  29. 7200 I=I+1:IFI>13THENPOKE53270,200
  30. 7300 IFI<19THENA$=A$+STR$(I)+"*":LOADA$,8,1
  31. 7400 A=5:LOAD"HIRES-EFFEKT 1",8,1
  32. 7500 SYS828,8192,9,0
  33. 7600 POKE53265,27:POKE53270,200:POKE53272,21
  34. 11000 RESTORE:FORI=1TO5:READA
  35. 11100 E1=0:E2=220:L1=0:L2=5:BYTE=A
  36. 11200 GOSUB11600
  37. 11300 FORT=1TO160:NEXT:NEXT
  38. 11400 DATA1,15,12,11,0
  39. 11500 PRINT"[147]":END
  40. 11600 POKE88,E1:POKE89,E2:POKE113,L1:POKE114,L2:POKE780,BYTE:POKE12,1:SYS45764:RETURN
  41.