home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos3.d64 / g64.bas (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  54 lines
  1. 10 PRINT"[147]"
  2. 20 PRINT"             GEOS 64 BOOT"
  3. 30 PRINT"             ENTWORFEN VON"
  4. 40 PRINT"          CHRISTIAN MEILINGER"
  5. 50 PRINT"             (C) 88/11/30"
  6. 60 PRINT"      LEGEN SIE BITTE DIE KOPIE DER"
  7. 70 PRINT"          GEOS64-BOOTDISKETTE"
  8. 80 POKE 198,0:WAIT 198,1
  9. 90 OPEN15,8,15,"UJ":CLOSE15
  10. 100 OPEN15,8,15,"U0>M0":PRINT#15,"I"
  11. 105 RESTORE
  12. 110 FOR I=0 TO 308:II=I+768:X=INT(II/256):Y=II-X*256:READ Z
  13. 120 PRINT#15,"M-W"CHR$(Y)CHR$(X)CHR$(1)CHR$(Z)
  14. 130 NEXT
  15. 140 PRINT#15,"M-E"CHR$(0)CHR$(3)
  16. 150 PRINT#15,"M-R"CHR$(241)CHR$(5)CHR$(1)
  17. 160 GET#15,A$
  18. 170 IF A$="[255]" THEN PRINT"[147]KEINE GEOS64-BOOT-DISKETTE!":GOTO 240
  19. 180 PRINT#15,"I"
  20. 190 FOR I=0 TO 259:II=I+1262:X=INT(II/256):Y=II-X*256:READ Z
  21. 200 PRINT#15,"M-W"CHR$(Y)CHR$(X)CHR$(1)CHR$(Z)
  22. 210 NEXT
  23. 220 PRINT#15,"M-E"CHR$(238)CHR$(4)
  24. 230 PRINT"[147]GEOS64-DISK BOOTFAEHIG!"
  25. 240 PRINT#15,"I"
  26. 250 CLOSE 15
  27. 260 DATA162,18,160,0,169,128,32,159,3,169,66,205,189,6,208,7,169,128,205,190
  28. 270 DATA6,240,10,169,77,205,190,6,208,53,76,158,3,162,0,189,188,3,240,49,133
  29. 280 DATA12,188,189,3,169,128,32,161,3,189,190,3,141,0,6,189,191,3,141,1,6,189
  30. 290 DATA192,3,133,12,188,193,3,169,144,32,161,3,232,232,232,232,232,232,208
  31. 300 DATA208,169,255,141,241,5,96,162,18,160,0,169,128,32,159,3,169,0,141,132
  32. 310 DATA6,141,133,6,141,134,6,141,135,6,141,136,6,141,137,6,141,138,6,141,139
  33. 320 DATA6,169,11,141,140,6,169,199,141,141,6,169,143,141,142,6,169,1,141,143
  34. 330 DATA6,169,77,141,190,6,162,18,160,0,169,144,32,159,3,96,134,12,132,13,120
  35. 340 DATA133,3,173,0,28,9,8,141,0,28,88,165,3,48,252,173,0,28,41,247,141,0,28
  36. 350 DATA96,20,10,33,14,20,10,21,14,33,8,33,14,21,3,33,1,33,8,21,11,33,11,33
  37. 360 DATA1,21,0,33,4,33,11,21,8,34,16,33,4,21,16,34,9,34,16,21,5,34,2,34,9,21
  38. 370 DATA13,34,12,34,2,21,2,34,3,34,12,21,10,34,13,34,3,21,18,34,5,34,13,21
  39. 380 DATA7,34,6,34,5,21,15,35,14,34,6,21,4,35,5,35,14,21,12,35,13,35,5,21,1
  40. 390 DATA35,4,35,13,21,9,35,12,35,4,21,17,35,3,35,12,21,6,22,14,35,3,0
  41. 400 DATA169,26,141,5,28,162,21,134,10,169,224,133,2,165,2,48,252,96,169,19
  42. 410 DATA133,67,169,0,133,27,160,0,162,0,165,57,153,0,3,200,200,165,27,153,0
  43. 420 DATA3,200,165,10,153,0,3,200,165,19,153,0,3,200,165,18,153,0,3,200,169
  44. 430 DATA15,153,0,3,200,153,0,3,200,169,0,89,250,2,89,251,2,89,252,2,89,253
  45. 440 DATA2,153,249,2,230,27,165,27,197,67,144,190,169,3,133,49,152,72,138,157
  46. 450 DATA0,7,232,208,250,32,48,254,104,168,136,32,229,253,32,245,253,169,7,133
  47. 460 DATA49,32,233,245,133,58,32,143,247,169,0,133,50,32,14,254,169,255,141
  48. 470 DATA1,28,162,5,80,254,184,202,208,250,162,10,164,50,80,254,184,185,0,3
  49. 480 DATA141,1,28,200,202,208,243,162,9,80,254,184,169,103,141,1,28,202,208
  50. 490 DATA245,169,255,162,5,80,254,184,141,1,28,202,208,247,162,187,80,254,184
  51. 500 DATA189,0,1,141,1,28,232,208,244,160,0,80,254,184,177,48,141,1,28,200,208
  52. 510 DATA245,169,103,162,8,80,254,184,141,1,28,202,208,247,165,50,24,105,10
  53. 520 DATA133,50,198,27,208,149,80,254,184,80,254,184,32,0,254,76,158,253,0
  54.