home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  90 lines
  1. 6 REM  DIESES KURZE DEMO-PROGRAMM SOLL
  2. 8 REM  EIN PAAR DARSTELLUNGSFORMEN
  3. 10 REM ZEIGEN, WIE SIE MIT PROVIC-64
  4. 12 REM RELATIV EINFACH ERREICHBAR SIND.
  5. 14 REM       1984 BY GEBR. HAAS
  6. 19 REM
  7. 20 REM LADEN DER PROVIC-64 ROUTINE
  8. 21 REM
  9. 30 IFPEEK(52544)=120THEN100
  10. 40 PRINT" AUF WELCHEM DATENTRAEGER IST PROVIC-64"
  11. 50 PRINT" VERFUEGBAR ( FLOPPY =8 / DATASETTE =1 )"
  12. 60 INPUT" ";A$:A=VAL(A$)
  13. 70 IF A<>1 AND A<>8 THEN40
  14. 80 LOAD"PROVIC 64",A,1
  15. 99 REM
  16. 100 REM PSEUDO-VIC'S INITIALISIEREN
  17. 101 REM
  18. 110 P1=52992:P2=53056:P3=53120:P4=53184:REM BASISADRESSEN DER PSEUDO-VIC'S
  19. 120 POKEP1+21,255:POKEP1+24,22:POKEP1+47,1:POKEP1+27,255:POKEP2+21,255
  20. 130 POKEP2+17,59:POKEP2+24,24:POKEP2+32,7:POKEP2+47,1:POKEP2+27,255
  21. 140 POKEP3+21,255:POKEP3+32,9:POKEP3+47,1:POKEP3+27,255:POKEP4+32,5
  22. 150 POKEP4+21,255:POKEP4+24,22:POKEP4+47,1:POKEP4+18,230:POKEP4+27,255
  23. 199 REM
  24. 200 REM SPRITE-DATEN UEBERTRAGEN
  25. 201 REM
  26. 210 RESTORE
  27. 220 FORA=0TO126
  28. 230 READ WERT
  29. 240 POKE832+A,WERT
  30. 250 NEXTA
  31. 299 REM
  32. 300 REM BILSCHIRM AUFBAUEN
  33. 301 REM
  34. 310 PRINT"[147][208][160][210][160][207][160][214][160][201][160][195][160][160][160]6[160]4[160][160][160][196][160][197][160][205][160][207]"
  35. 320 PRINT" [201]N DIESEM [194]EREICH: [199][210][207][211][211]/KLEIN-[211]CHRIFT":
  36. 330 FORA=0TO7:PRINT"RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR";:NEXTA
  37. 335 FORA=0TO14:POKE1289+A,34:NEXTA
  38. 340 PRINT"      ^ DORT OBEN: HIRES-GRAFIK-MODUS ^"
  39. 350 PRINT"             HIER: GROSS-SCHRIFT/GRAFIK"
  40. 360 PRINT" [209][215][197][210][212][217][213][201][207][186][192][255][204][203][202][200][198][211][193][218][216][195][214][194][206][205][171][179][177][178][163][187][165][173][189][188][190][191]"
  41. 370 PRINT"      ^ [196]ORT OBEN: [204]AUFSCHRIFT ^[145][145][145]":PRINTTAB(6);
  42. 390 SYS52544:REM PROVIC-64 ACTIVIEREN
  43. 399 REM
  44. 400 REM HIRES-GRAFIK ZEICHNEN
  45. 401 REM
  46. 410 FORA=10110TO12360:POKEA,0:NEXTA
  47. 420 FORA=0TO8*(null)STEP.08
  48. 430 X=3+A/.08:Y=77-11*SIN(A)-9*COS(A/.7)
  49. 440 AV=8192+320*INT(Y/8)+(Y AND7)+8*INT(X/8)
  50. 450 POKEAV,PEEK(AV) OR 2^(7-(X AND 7))
  51. 460 NEXTA
  52. 470 LA$="*** VON [200]AASI[211]OFT ***  [198]UER DAS 64'ER [205]AGAZIN   "
  53. 480 LA$=LA$+"***   [208][160][210][160][207][160][214][160][201][160][195][160][160][160]6 4   "
  54. 490 LA$=LA$+LEFT$(LA$,25):R=53266
  55. 499 REM
  56. 500 REM DEMONSTRATINS-SCHLEIFE
  57. 501 REM
  58. 510 REM SPRITES SETZEN
  59. 511 REM
  60. 520 FORA=0TO7
  61. 530 POKEP1+2*A,30+24*A+7*RND(1):POKEP1+2*A+1,60+6*RND(1)
  62. 540 POKEP1+39+A,RND(1)*16:POKEP1+48+A,13.5+RND(1)
  63. 550 POKEP2+2*A,30+24*A+7*RND(1):POKEP2+2*A+1,110+6*RND(1)
  64. 560 POKEP2+39+A,RND(1)*16:POKEP2+48+A,13.5+RND(1)
  65. 570 POKEP3+2*A,30+24*A+7*RND(1):POKEP3+2*A+1,160+6*RND(1)
  66. 580 POKEP3+39+A,RND(1)*16:POKEP3+48+A,13.5+RND(1)
  67. 590 POKEP4+2*A,30+24*A+7*RND(1):POKEP4+2*A+1,207+6*RND(1)
  68. 600 POKEP4+39+A,RND(1)*16:POKEP4+48+A,13.5+RND(1)
  69. 610 NEXTA
  70. 619 REM
  71. 620 REM LAUFSCHRIFT SETZEN
  72. 621 REM
  73. 625 FORLP=1TOLEN(LA$)-25
  74. 630 LZ=LZ-1:IFLZ>0THENPOKEP4+22,LZ OR 8:FORA=0TO9:NEXTA:GOTO630
  75. 640 PRINTTAB(6);:WAIT53265,128:WAIT53266,64:POKE53206,15:PRINTLF$:PRINT"[145][145]"
  76. 660 LZ=7:LF$=MID$(LA$,LP,25)
  77. 670 NEXTLP
  78. 680 GETA$:IFA$=""THEN500
  79. 690 SYS52970:REM PROVIC-64 DESAKTIVIEREN
  80. 999 REM
  81. 1000 REM SPRITE-DATEN
  82. 1001 REM
  83. 1002 DATA0,0,0,0,126,0,1,255,128,7,255,224,15,255,240,15,253,240,31,255,248
  84. 1003 DATA31,255,248,63,255,252,63,255,252,63,243,252,63,252,0,63,255,252,63
  85. 1004 DATA255,252,31,255,248,31,255,248,15,255,240,15,255,240,7,255,224,1,255
  86. 1005 DATA128,0,126,0,0,0,0,0,0,126,0,1,255,128,7,255,224,15,255,240,15,251
  87. 1006 DATA240,31,255,248,31,255,248,63,255,240,63,255,0,63,240,0,63,252,0,63
  88. 1007 DATA255,0,63,255,224,31,255,248,31,255,248,15,255,240,15,255,240,7,255
  89. 1008 DATA224,1,255,128,0,126,0
  90.