home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh65b.d64 / pbasic (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  31 lines
  1. 100 REM*****************************
  2. 101 REM*        P-BASIC-V2.        *
  3. 102 REM*                           *
  4. 103 REM*   GESCHRIEBEN 1984  VON   *
  5. 104 REM*                           *
  6. 105 REM*        JAN KUSCH          *
  7. 106 REM*****************************
  8. 107 FORX=0TO255:READA:S=S+A
  9. 108 POKE49152+X,A:NEXT
  10. 109 IFS=26106THEN112
  11. 110 PRINT"?FEHLER IN DATAS :"
  12. 111 PRINT"PRUEFSUMME :"S"  (26106)":END
  13. 112 POKE49152+X,ASC ("!")
  14. 113 SYS49152:NEW
  15. 114 DATA169,17,141,8,3,169,192,141,9,3,169,49,160,192,76,30,171
  16. 115 DATA32,115,0,205,0,193,240,3,76,231,167,32,115,0,201,147,240
  17. 116 DATA64,201,148,240,88,201,162,240,3,76,8,175,76,180,192,147,144
  18. 117 DATA18,32,208,45,194,65,83,73,67,45,214,50,46,32,32,13,195
  19. 118 DATA45,54,52,32,38,32,214,195,45,49,53,52,49,13,195,79,80
  20. 119 DATA89,82,73,71,72,84,32,40,67,41,9,14,8,0,169,0,133
  21. 120 DATA157,32,115,0,32,212,225,169,0,166,43,164,44,133,10,32,213
  22. 121 DATA255,134,45,132,46,76,180,192,169,0,133,157,32,115,0,32,212
  23. 122 DATA225,162,0,189,218,192,157,64,3,232,201,255,208,245,169,38,133
  24. 123 DATA43,169,3,133,44,169,64,141,36,3,141,38,3,169,3,141,37
  25. 124 DATA3,141,39,3,32,68,229,32,89,225,169,1,133,43,169,8,133
  26. 125 DATA44,169,87,141,36,3,169,241,141,37,3,141,39,3,169,202,141
  27. 126 DATA38,3,169,237,141,40,3,169,0,133,198,76,49,168,169,1,133
  28. 127 DATA43,169,8,133,44,169,87,141,36,3,169,241,141,37,3,141,39
  29. 128 DATA3,169,202,141,38,3,169,225,141,40,3,32,89,166,76,174,167
  30. 129 DATA255
  31.