home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D07.D64 / prob1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  34 lines

  1. 1 REM *********************************
  2. 2 REM *                               *
  3. 3 REM * (C) COMMODORE DISK USER 1990  *
  4. 4 REM *                               *
  5. 5 REM *   TECHNO INFO - PROBLEM ONE   *
  6. 6 REM *                               *
  7. 7 REM *********************************
  8. 8 :
  9. 9 :
  10. 10 POKE53280,14:POKE53281,6:PRINT"[147]    [142]THIS PROGRAM CREATES AND SAVES A SMALL"
  11. 15 PRINT"CHUNK OF MACHINE CODE THAT WILL","AUTOMATICALLY LOAD AND RUN A BASIC"
  12. 20 PRINT"PROGRAM WITH A FLASHING BORDER. NOW, TO LOAD YOUR PROGRAM YOU SHOULD TYPE:
  13. 25 [153],"  LOAD"[199](34)"LOADER"[199](34)",8,1
  14. 30 PRINT"PLEASE SUPPLY THE NAME OF THE BASIC","PROGRAM TO BE LOADED BY THE CODE"
  15. 35 PRINT":";:OPEN1,0:INPUT#1,A$:CLOSE1:L=LEN(A$):IFL>16THENRUN
  16. 40 PRINT:PRINT"OK. PLEASE INSERT DISK ONTO WHICH LOADERIS TO BE SAVED (DEVICE 8)"
  17. 45 FORI=0TO113:READA:POKE49152+I,A:NEXT:B$="[198][147]"+CHR$(34)+"LOADER"+CHR$(34)
  18. 50 B$=B$+",8,1":FORI=0TO12:B$=B$+CHR$(0):NEXT:POKE49210,L
  19. 55 FORI=1TOL:POKE49265+I,ASC(MID$(A$,I,1)):NEXT:PRINT"THEN PRESS ANY KEY"
  20. 60 POKE198,0:WAIT198,1:POKE198,0:OPEN15,8,15,"I":INPUT#15,Z:CLOSE15
  21. 65 IFZ<>0THENPRINT"[147]DISK ERROR. PRESS A KEY":POKE198,0:WAIT198,1:POKE198,0:RUN
  22. 67 PRINT"[145]SAVING LOADER... PLEASE WAIT"
  23. 70 OPEN2,8,1,"@:LOADER,P,W":PRINT#2,"";:FORI=1TO46
  24. 75 PRINT#2,MID$(B$,I,1);:NEXT:FORI=0TO129:PRINT#2,CHR$(PEEK(49152+I));:NEXT
  25. 80 FORI=0TO82:PRINT#2,"";:NEXT:PRINT#2,"L.";:CLOSE2:OPEN15,8,15:INPUT#15,Z
  26. 85 CLOSE15:IFZ<>0THENPRINT"[147]DISK ERROR. PRESS A KEY":POKE198,0:WAIT198,1:POKE198,0:RUN
  27. 90 PRINT"[147]LOADER SUCCESSFULLY SAVED TO DISK...":END
  28. 95 DATA162,0,169,32,157,0,4,157,0,5,157,0,6,157,232,6,232,208,241,169,0,32,144
  29. 100 DATA255,162,6,142,33,208,189,153,1,157,166,2,202,208,247,162,167,160,2,142
  30. 105 DATA40,3,140,41,3,169,8,162,8,160,1,32,186,255,169,,162,160,160,1,32,189
  31. 110 DATA255,169,,162,255,160,255,32,213,255,134,45,132,46,169,192,32,144,255
  32. 115 DATA162,237,160,246,142,40,3,140,41,3,232,142,32,208,32,94,166,32,142,166
  33. 120 DATA32,174,167,96,238,32,208,76,237,246
  34.