prob1

Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » prob1

prob1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64
Filename:	prob1
Read OK:	✔
File size:	06D1 bytes
Load address:	0801
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Arnold website » magazines_cdu » magazines_cdu_cdu307_cdu307.d64 » prob1
Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » prob1

File contents

     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"<clr><white><shift enable><graphics mode>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 PRINT,"<cursor down>  LOAD"CHR$(34)"LOADER"CHR$(34)",8,1
    30 PRINT"<cursor down><cursor down>PLEASE SUPPLY THE NAME OF THE BASIC","PROGRAM TO BE LOADED BY THE CODE"
    35 PRINT"<cursor down>:";:OPEN1,0:INPUT#1,A$:CLOSE1:L=LEN(A$):IFL>16THENRUN
    40 PRINT:PRINT"<cursor down><cursor down><cursor down><cursor down>OK. PLEASE INSERT DISK ONTO WHICH LOADERIS TO BE SAVED (DEVICE 8)"
    45 FORI=0TO113:READA:POKE49152+I,A:NEXT:B$="<del><shift disable>🭺.<clr>"+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"<cursor down><cursor down>THEN PRESS ANY KEY"
    60 POKE198,0:WAIT198,1:POKE198,0:OPEN15,8,15,"I":INPUT#15,Z:CLOSE15
    65 IFZ<>0THENPRINT"<clr>DISK ERROR. PRESS A KEY":POKE198,0:WAIT198,1:POKE198,0:RUN
    67 PRINT"<cursor up>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"<clr>DISK ERROR. PRESS A KEY":POKE198,0:WAIT198,1:POKE198,0:RUN
    90 PRINT"<clr><cursor down><cursor right>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

)� *********************************Q� *                               *y� * (C) COMMODORE DISK USER 1990  *�� *                               *�� *   TECHNO INFO - PROBLEM ONE   *�� *                               *	� *********************************	:%		:j	
�53280,14:�53281,6:�"�	�THIS PROGRAM CREATES AND SAVES A SMALL"�	�"CHUNK OF MACHINE CODE THAT WILL","AUTOMATICALLY LOAD AND RUN A BASIC"
�"PROGRAM WITH A FLASHING BORDER. NOW, TO LOAD YOUR PROGRAM YOU SHOULD TYPE:.
�,"  LOAD"�(34)"LOADER"�(34)",8,1~
�"PLEASE SUPPLY THE NAME OF THE BASIC","PROGRAM TO BE LOADED BY THE CODE"�
#�":";:�1,0:�1,A$:�1:L��(A$):�L�16���
(�:�"OK. PLEASE INSERT DISK ONTO WHICH LOADERIS TO BE SAVED (DEVICE 8)"3-�I�0�113:�A:�49152�I,A:�:B$�"��"��(34)�"LOADER"��(34)b2B$�B$�",8,1":�I�0�12:B$�B$��(0):�:�49210,L�7�I�1�L:�49265�I,�(�(A$,I,1)):�:�"THEN PRESS ANY KEY"�<�198,0:�198,1:�198,0:�15,8,15,"I":�15,Z:�15
A�Z��0��"�DISK ERROR. PRESS A KEY":�198,0:�198,1:�198,0:�/C�"�SAVING LOADER... PLEASE WAIT"ZF�2,8,1,"@:LOADER,P,W":�2,"";:�I�1�46�K�2,�(B$,I,1);:�:�I�0�129:�2,�(�(49152�I));:��P�I�0�82:�2,"";:�:�2,"L.";:�2:�15,8,15:�15,Z�U�15:�Z��0��"�DISK ERROR. PRESS A KEY":�198,0:�198,1:�198,0:�/
Z�"�LOADER SUCCESSFULLY SAVED TO DISK...":�|
_�162,0,169,32,157,0,4,157,0,5,157,0,6,157,232,6,232,208,241,169,0,32,144�
d�255,162,6,142,33,208,189,153,1,157,166,2,202,208,247,162,167,160,2,142i�40,3,140,41,3,169,8,162,8,160,1,32,186,255,169,,162,160,160,1,32,189\n�255,169,,162,255,160,255,32,213,255,134,45,132,46,169,192,32,144,255�s�162,237,160,246,142,40,3,140,41,3,232,142,32,208,32,94,166,32,142,166�x�32,174,167,96,238,32,208,76,237,246

)HA@. *********************************@qHB@. *                               *@YHC@. * (c) commodore disk user 1990  *@.HD@. *                               *@.HE@. *   techno info - problem one   *@.HF@. *                               *@YIG@. *********************************@.IH@:@%II@:@JIJ@.53280,14:.53281,6:.".EI.this program creates and saves a small"@.IO@."chunk of machine code that will","automatically load and run a basic"@GJT@."program with a flashing border. now, to load your program you should type:@.JY@.,"Q  load".(34)"loader".(34)",8,1@.J.@."QQplease supply the name of the basic","program to be loaded by the code"@.J#@."Q:";:.1,0:.1,a$:.1:l..(a$):.l.16..@.J(@.:."QQQQok. please insert disk onto which loaderis to be saved (device 8)"@3K-@.i.0.113:.a:.49152.i,a:.:b$."TH.G."..(34)."loader"..(34)@BK2@b$.b$.",8,1":.i.0.12:b$.b$..(0):.:.49210,l@.K7@.i.1.l:.49265.i,.(.(a$,i,1)):.:."QQthen press any key"@.K<@.198,0:.198,1:.198,0:.15,8,15,"i":.15,z:.15@JLa@.z..0..".disk error. press a key":.198,0:.198,1:.198,0:.@/Lc@.".saving loader... please wait"@zLf@.2,8,1,"@:loader,p,w":.2,"PA";:.i.1.46@.Lk@.2,.(b$,i,1);:.:.i.0.129:.2,.(.(49152.i));:.@.Lp@.i.0.82:.2,"B";:.:.2,"l.A";:.2:.15,8,15:.15,z@.Lu@.15:.z..0..".disk error. press a key":.198,0:.198,1:.198,0:.@/Mz@.".Q]loader successfully saved to disk...":.@.M.@.162,0,169,32,157,0,4,157,0,5,157,0,6,157,232,6,232,208,241,169,0,32,144@.MD@.255,162,6,142,33,208,189,153,1,157,166,2,202,208,247,162,167,160,2,142@RNI@.40,3,140,41,3,169,8,162,8,160,1,32,186,255,169,,162,160,160,1,32,189@£NN@.255,169,,162,255,160,255,32,213,255,134,45,132,46,169,192,32,144,255@.NS@.162,237,160,246,142,40,3,140,41,3,232,142,32,208,32,94,166,32,142,166@.NX@.32,174,167,96,238,32,208,76,237,246@@@

00000000  29 08 01 00 8f 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |).... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 2a 2a 2a 00  51 08 02 00 8f 20 2a 20  |*******.Q.... * |
00000030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 00  |              *.|
00000050  79 08 03 00 8f 20 2a 20  28 43 29 20 43 4f 4d 4d  |y.... * (C) COMM|
00000060  4f 44 4f 52 45 20 44 49  53 4b 20 55 53 45 52 20  |ODORE DISK USER |
00000070  31 39 39 30 20 20 2a 00  a1 08 04 00 8f 20 2a 20  |1990  *...... * |
00000080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 00  |              *.|
000000a0  c9 08 05 00 8f 20 2a 20  20 20 54 45 43 48 4e 4f  |..... *   TECHNO|
000000b0  20 49 4e 46 4f 20 2d 20  50 52 4f 42 4c 45 4d 20  | INFO - PROBLEM |
000000c0  4f 4e 45 20 20 20 2a 00  f1 08 06 00 8f 20 2a 20  |ONE   *...... * |
000000d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 00  |              *.|
000000f0  19 09 07 00 8f 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000100  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000110  2a 2a 2a 2a 2a 2a 2a 00  1f 09 08 00 3a 00 25 09  |*******.....:.%.|
00000120  09 00 3a 00 6a 09 0a 00  97 35 33 32 38 30 2c 31  |..:.j....53280,1|
00000130  34 3a 97 35 33 32 38 31  2c 36 3a 99 22 93 05 09  |4:.53281,6:."...|
00000140  8e 54 48 49 53 20 50 52  4f 47 52 41 4d 20 43 52  |.THIS PROGRAM CR|
00000150  45 41 54 45 53 20 41 4e  44 20 53 41 56 45 53 20  |EATES AND SAVES |
00000160  41 20 53 4d 41 4c 4c 22  00 b6 09 0f 00 99 22 43  |A SMALL"......"C|
00000170  48 55 4e 4b 20 4f 46 20  4d 41 43 48 49 4e 45 20  |HUNK OF MACHINE |
00000180  43 4f 44 45 20 54 48 41  54 20 57 49 4c 4c 22 2c  |CODE THAT WILL",|
00000190  22 41 55 54 4f 4d 41 54  49 43 41 4c 4c 59 20 4c  |"AUTOMATICALLY L|
000001a0  4f 41 44 20 41 4e 44 20  52 55 4e 20 41 20 42 41  |OAD AND RUN A BA|
000001b0  53 49 43 22 00 07 0a 14  00 99 22 50 52 4f 47 52  |SIC"......"PROGR|
000001c0  41 4d 20 57 49 54 48 20  41 20 46 4c 41 53 48 49  |AM WITH A FLASHI|
000001d0  4e 47 20 42 4f 52 44 45  52 2e 20 4e 4f 57 2c 20  |NG BORDER. NOW, |
000001e0  54 4f 20 4c 4f 41 44 20  59 4f 55 52 20 50 52 4f  |TO LOAD YOUR PRO|
000001f0  47 52 41 4d 20 59 4f 55  20 53 48 4f 55 4c 44 20  |GRAM YOU SHOULD |
00000200  54 59 50 45 3a 00 2e 0a  19 00 99 2c 22 11 20 20  |TYPE:......,".  |
00000210  4c 4f 41 44 22 c7 28 33  34 29 22 4c 4f 41 44 45  |LOAD".(34)"LOADE|
00000220  52 22 c7 28 33 34 29 22  2c 38 2c 31 00 7e 0a 1e  |R".(34)",8,1.~..|
00000230  00 99 22 11 11 50 4c 45  41 53 45 20 53 55 50 50  |.."..PLEASE SUPP|
00000240  4c 59 20 54 48 45 20 4e  41 4d 45 20 4f 46 20 54  |LY THE NAME OF T|
00000250  48 45 20 42 41 53 49 43  22 2c 22 50 52 4f 47 52  |HE BASIC","PROGR|
00000260  41 4d 20 54 4f 20 42 45  20 4c 4f 41 44 45 44 20  |AM TO BE LOADED |
00000270  42 59 20 54 48 45 20 43  4f 44 45 22 00 a7 0a 23  |BY THE CODE"...#|
00000280  00 99 22 11 3a 22 3b 3a  9f 31 2c 30 3a 84 31 2c  |..".:";:.1,0:.1,|
00000290  41 24 3a a0 31 3a 4c b2  c3 28 41 24 29 3a 8b 4c  |A$:.1:L..(A$):.L|
000002a0  b1 31 36 a7 8a 00 f6 0a  28 00 99 3a 99 22 11 11  |.16.....(..:."..|
000002b0  11 11 4f 4b 2e 20 50 4c  45 41 53 45 20 49 4e 53  |..OK. PLEASE INS|
000002c0  45 52 54 20 44 49 53 4b  20 4f 4e 54 4f 20 57 48  |ERT DISK ONTO WH|
000002d0  49 43 48 20 4c 4f 41 44  45 52 49 53 20 54 4f 20  |ICH LOADERIS TO |
000002e0  42 45 20 53 41 56 45 44  20 28 44 45 56 49 43 45  |BE SAVED (DEVICE|
000002f0  20 38 29 22 00 33 0b 2d  00 81 49 b2 30 a4 31 31  | 8)".3.-..I.0.11|
00000300  33 3a 87 41 3a 97 34 39  31 35 32 aa 49 2c 41 3a  |3:.A:.49152.I,A:|
00000310  82 3a 42 24 b2 22 14 08  c6 07 93 22 aa c7 28 33  |.:B$."....."..(3|
00000320  34 29 aa 22 4c 4f 41 44  45 52 22 aa c7 28 33 34  |4)."LOADER"..(34|
00000330  29 00 62 0b 32 00 42 24  b2 42 24 aa 22 2c 38 2c  |).b.2.B$.B$.",8,|
00000340  31 22 3a 81 49 b2 30 a4  31 32 3a 42 24 b2 42 24  |1":.I.0.12:B$.B$|
00000350  aa c7 28 30 29 3a 82 3a  97 34 39 32 31 30 2c 4c  |..(0):.:.49210,L|
00000360  00 9d 0b 37 00 81 49 b2  31 a4 4c 3a 97 34 39 32  |...7..I.1.L:.492|
00000370  36 35 aa 49 2c c6 28 ca  28 41 24 2c 49 2c 31 29  |65.I,.(.(A$,I,1)|
00000380  29 3a 82 3a 99 22 11 11  54 48 45 4e 20 50 52 45  |):.:."..THEN PRE|
00000390  53 53 20 41 4e 59 20 4b  45 59 22 00 cd 0b 3c 00  |SS ANY KEY"...<.|
000003a0  97 31 39 38 2c 30 3a 92  31 39 38 2c 31 3a 97 31  |.198,0:.198,1:.1|
000003b0  39 38 2c 30 3a 9f 31 35  2c 38 2c 31 35 2c 22 49  |98,0:.15,8,15,"I|
000003c0  22 3a 84 31 35 2c 5a 3a  a0 31 35 00 0a 0c 41 00  |":.15,Z:.15...A.|
000003d0  8b 5a b3 b1 30 a7 99 22  93 44 49 53 4b 20 45 52  |.Z..0..".DISK ER|
000003e0  52 4f 52 2e 20 50 52 45  53 53 20 41 20 4b 45 59  |ROR. PRESS A KEY|
000003f0  22 3a 97 31 39 38 2c 30  3a 92 31 39 38 2c 31 3a  |":.198,0:.198,1:|
00000400  97 31 39 38 2c 30 3a 8a  00 2f 0c 43 00 99 22 91  |.198,0:../.C..".|
00000410  53 41 56 49 4e 47 20 4c  4f 41 44 45 52 2e 2e 2e  |SAVING LOADER...|
00000420  20 50 4c 45 41 53 45 20  57 41 49 54 22 00 5a 0c  | PLEASE WAIT".Z.|
00000430  46 00 9f 32 2c 38 2c 31  2c 22 40 3a 4c 4f 41 44  |F..2,8,1,"@:LOAD|
00000440  45 52 2c 50 2c 57 22 3a  98 32 2c 22 10 01 22 3b  |ER,P,W":.2,"..";|
00000450  3a 81 49 b2 31 a4 34 36  00 8b 0c 4b 00 98 32 2c  |:.I.1.46...K..2,|
00000460  ca 28 42 24 2c 49 2c 31  29 3b 3a 82 3a 81 49 b2  |.(B$,I,1);:.:.I.|
00000470  30 a4 31 32 39 3a 98 32  2c c7 28 c2 28 34 39 31  |0.129:.2,.(.(491|
00000480  35 32 aa 49 29 29 3b 3a  82 00 bd 0c 50 00 81 49  |52.I));:....P..I|
00000490  b2 30 a4 38 32 3a 98 32  2c 22 02 22 3b 3a 82 3a  |.0.82:.2,".";:.:|
000004a0  98 32 2c 22 4c 2e 01 22  3b 3a a0 32 3a 9f 31 35  |.2,"L..";:.2:.15|
000004b0  2c 38 2c 31 35 3a 84 31  35 2c 5a 00 fe 0c 55 00  |,8,15:.15,Z...U.|
000004c0  a0 31 35 3a 8b 5a b3 b1  30 a7 99 22 93 44 49 53  |.15:.Z..0..".DIS|
000004d0  4b 20 45 52 52 4f 52 2e  20 50 52 45 53 53 20 41  |K ERROR. PRESS A|
000004e0  20 4b 45 59 22 3a 97 31  39 38 2c 30 3a 92 31 39  | KEY":.198,0:.19|
000004f0  38 2c 31 3a 97 31 39 38  2c 30 3a 8a 00 2f 0d 5a  |8,1:.198,0:../.Z|
00000500  00 99 22 93 11 1d 4c 4f  41 44 45 52 20 53 55 43  |.."...LOADER SUC|
00000510  43 45 53 53 46 55 4c 4c  59 20 53 41 56 45 44 20  |CESSFULLY SAVED |
00000520  54 4f 20 44 49 53 4b 2e  2e 2e 22 3a 80 00 7c 0d  |TO DISK...":..|.|
00000530  5f 00 83 31 36 32 2c 30  2c 31 36 39 2c 33 32 2c  |_..162,0,169,32,|
00000540  31 35 37 2c 30 2c 34 2c  31 35 37 2c 30 2c 35 2c  |157,0,4,157,0,5,|
00000550  31 35 37 2c 30 2c 36 2c  31 35 37 2c 32 33 32 2c  |157,0,6,157,232,|
00000560  36 2c 32 33 32 2c 32 30  38 2c 32 34 31 2c 31 36  |6,232,208,241,16|
00000570  39 2c 30 2c 33 32 2c 31  34 34 00 c8 0d 64 00 83  |9,0,32,144...d..|
00000580  32 35 35 2c 31 36 32 2c  36 2c 31 34 32 2c 33 33  |255,162,6,142,33|
00000590  2c 32 30 38 2c 31 38 39  2c 31 35 33 2c 31 2c 31  |,208,189,153,1,1|
000005a0  35 37 2c 31 36 36 2c 32  2c 32 30 32 2c 32 30 38  |57,166,2,202,208|
000005b0  2c 32 34 37 2c 31 36 32  2c 31 36 37 2c 31 36 30  |,247,162,167,160|
000005c0  2c 32 2c 31 34 32 00 12  0e 69 00 83 34 30 2c 33  |,2,142...i..40,3|
000005d0  2c 31 34 30 2c 34 31 2c  33 2c 31 36 39 2c 38 2c  |,140,41,3,169,8,|
000005e0  31 36 32 2c 38 2c 31 36  30 2c 31 2c 33 32 2c 31  |162,8,160,1,32,1|
000005f0  38 36 2c 32 35 35 2c 31  36 39 2c 2c 31 36 32 2c  |86,255,169,,162,|
00000600  31 36 30 2c 31 36 30 2c  31 2c 33 32 2c 31 38 39  |160,160,1,32,189|
00000610  00 5c 0e 6e 00 83 32 35  35 2c 31 36 39 2c 2c 31  |.\.n..255,169,,1|
00000620  36 32 2c 32 35 35 2c 31  36 30 2c 32 35 35 2c 33  |62,255,160,255,3|
00000630  32 2c 32 31 33 2c 32 35  35 2c 31 33 34 2c 34 35  |2,213,255,134,45|
00000640  2c 31 33 32 2c 34 36 2c  31 36 39 2c 31 39 32 2c  |,132,46,169,192,|
00000650  33 32 2c 31 34 34 2c 32  35 35 00 a7 0e 73 00 83  |32,144,255...s..|
00000660  31 36 32 2c 32 33 37 2c  31 36 30 2c 32 34 36 2c  |162,237,160,246,|
00000670  31 34 32 2c 34 30 2c 33  2c 31 34 30 2c 34 31 2c  |142,40,3,140,41,|
00000680  33 2c 32 33 32 2c 31 34  32 2c 33 32 2c 32 30 38  |3,232,142,32,208|
00000690  2c 33 32 2c 39 34 2c 31  36 36 2c 33 32 2c 31 34  |,32,94,166,32,14|
000006a0  32 2c 31 36 36 00 d0 0e  78 00 83 33 32 2c 31 37  |2,166...x..32,17|
000006b0  34 2c 31 36 37 2c 39 36  2c 32 33 38 2c 33 32 2c  |4,167,96,238,32,|
000006c0  32 30 38 2c 37 36 2c 32  33 37 2c 32 34 36 00 00  |208,76,237,246..|
000006d0  00                                                |.|
000006d1

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .