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