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