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

pointers

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: pointers
Read OK: ✔
File size: 139F bytes
Load address: 0801
Exec address: 0000
Duplicates

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

File contents
     5 IFZ%=0THENZ%=1:POKE631,32:POKE198,1:LOAD"P.CODE",8,1
    10 REM *** PREFERENCES PROGRAM
    20 REM *** TO DEMONSTRATE USE OF
    30 REM *** POINTER CODE.
    40 REM *** BY WILLIAM PHILLIPS 1988.
    50 :
    60 GOSUB5010
    70 GOSUB5220
    80 GOSUB5180
    90 GOSUB5260
    95 IFPEEK(49886)>0THEN90
   100 X%=PEEK(49872)+256*(PEEK(49873)AND1)
   110 IFX%>25ANDX%<162THEN150
   120 IFX%>164ANDX%<259THEN550
   130 IFX%>260ANDX%<341THENSYS49274:PRINTCHR$(147):END
   140 GOTO90
   150 M%=0:GOSUB5320
   160 POKE684,7:POKE679,1
   170 GOSUB5260:IFPEEK(710)=0THEN170
   180 GOSUB5470
   190 Y%=S%-4
   200 ONY%GOTO210,250,290,330,390,540
   210 M%=7:GOSUB5320
   220 A%=PEEK(49413)
   230 X%=7:Y%=19:L%=31:N%=19:GOSUB5560
   240 POKE49413,A%:GOTO90
   250 M%=12:GOSUB5320
   260 A%=PEEK(49408)
   270 X%=8:Y%=23:L%=7:N%=1:GOSUB5560
   280 POKE49408,A%:GOTO90
   290 M%=17:GOSUB5320
   300 A%=PEEK(49396)
   310 X%=9:Y%=23:L%=7:N%=5:GOSUB5560
   320 POKE49396,A%:GOTO90
   330 M%=22:GOSUB5320
   340 POKE684,3:POKE679,1
   350 GOSUB5260:IFPEEK(710)=0THEN350
   360 GOSUB5470:GOSUB5520
   370 DC%=S%-12:IFDC%=3THEN540
   380 DV%=DC%:IFDV%=2THEN80
   385 DV%=1-DV%:GOTO80
   390 M%=27:GOSUB5320
   400 POKE684,14:POKE679,1
   410 GOSUB5260:IFPEEK(710)=0THEN410
   420 GOSUB5470
   430 G%=S%-13:IFG%=3THEN540
   440 L%=0:IFG%=2THENL%=1
   450 X%=14+G%:GOSUB5680
   460 GOSUB5260
   470 Y%=PEEK(49886)
   480 IFY%<(X%+1)ORY%>(X%+2)THENGOTO460
   490 Y%=PEEK(49885)
   495 IFY%<3ORY%>2*(17-L%)THENGOTO460
   500 P%=INT((Y%-3)/2)+L%
   510 IFG%=0THENTL%=P%
   520 IFG%=1THENPOKE49332,P%
   530 IFG%=2THENPOKE53287,P%
   540 GOSUB5520:GOTO70
   550 M%=32:GOSUB5320
   560 POKE781,6:POKE782,10:SYS58634:PRINTCHR$(158)"]"LEFT$(Y$,13):POKE53269,0
   565 T%=PEEK(49408):T1%=PEEK(49396):POKE49396,0:POKE49408,0
   570 F$=""
   580 POKE781,6:POKE782,11:SYS58634:PRINTF$;" ";CHR$(157);:POKE204,0
   590 GETA$:IFA$=CHR$(13)THEN640
   600 IFA$=CHR$(20)ANDLEN(F$)>0THENPOKE204,1:PRINT" "
   605 IFA$=CHR$(20)ANDLEN(F$)>0THENF$=LEFT$(F$,LEN(F$)-1):GOTO580
   610 IFA$<" "ORA$>"♦"THEN590
   620 IFLEN(F$)<13THENF$=F$+A$
   630 GOTO580
   640 POKE204,1:IFF$=""THEN800
   660 M%=35:GOSUB5320
   670 R%=0:GETA$:IFA$="🭰"ORA$="T"THENR%=1:F$=CHR$(5)+CHR$(14)+CHR$(8)+F$
   680 IFA$="🭷"ORA$="D"THENR%=8:GOTO710
   690 IFR%=0THEN670
   700 M%=38:GOSUB5320
   705 IF(PEEK(1)AND16)=16THEN705
   706 GETA$:IFA$=""THEN705
   710 SYS49274:SAVEF$,R%,1
   720 POKE186,R%:POKE184,1:POKE185,1
   740 F$="P.CODE":FORI=1TO6:POKE53230+I,ASC(MID$(F$,I,1)):NEXT
   750 POKE183,6:POKE187,239:POKE188,207
   760 POKE251,0:POKE252,192
   770 POKE781,93:POKE782,195
   780 POKE780,251
   790 SYS65496:SYS65484
   800 SYS49152
   810 POKE49408,T%:POKE49396,T1%:GOTO540
  3999 END
  5000 REM *** INITIALISE
  5010 POKE679,0:POKE710,0:PRINTCHR$(147)CHR$(14)CHR$(8)
  5020 POKE53280,0:POKE53281,0
  5030 FORI=685TO709:POKEI,1:NEXT
  5040 POKE49332,1:POKE49413,19
  5045 POKE49396,5:POKE49408,1
  5050 POKE49872,128:POKE49874,128
  5060 POKE49873,0:POKE53287,1
  5070 DV%=2:TL%=6
  5080 DIMC%(15),M$(40)
  5090 FORI=0TO15:READC%(I):NEXT
  5100 Z$="🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹"
  5110 Y$="                                       "
  5115 K%=0:FORI=0TO8
  5120 READX%,Y%,L%,D%,Q%,B%,V%,T$:M$(K%)=CHR$(X%)+CHR$(Y%)+CHR$(L%)+CHR$(D%)
  5130 M$(K%)=M$(K%)+CHR$(Q%)+CHR$(B%)+CHR$(V%)+T$:FORD=1TOD%:READM$(K%+D):NEXT
  5140 K%=K%+1+D%:NEXT
  5150 POKE781,24:POKE782,1:POKE783,48:POKE658,1:SYS58634
  5155 PRINTCHR$(153)"'🭾REFERENCES' PROGRAM BY ○. 🭾HILLIPS"
  5160 SYS49152:RETURN
  5170 REM *** SET DEVICE
  5180 POKE49884,DV%AND2
  5190 POKE49337,DV%AND1
  5200 RETURN
  5210 REM *** PRINT TOP LINE
  5220 PRINTCHR$(19)CHR$(C%(TL%))CHR$(18)CHR$(165)"   🭾REFERENCES  │  ♥TORAGE  │";
  5230 PRINT"  ●UIT   "CHR$(167)CHR$(146)
  5240 RETURN
  5250 REM *** CHECK FIRE
  5260 IFDV%=2THEN5290
  5270 F%=PEEK(56320+DV%)AND16:IFF%=16THEN5270
  5280 RETURN
  5290 GETA$:IFA$<>CHR$(13)THEN5290
  5300 RETURN
  5310 REM *** PRINT MENU
  5320 X%=ASC(LEFT$(M$(M%),1)):Y%=ASC(MID$(M$(M%),2,1))
  5330 L%=ASC(MID$(M$(M%),3,1)):D%=ASC(MID$(M$(M%),4,1))
  5340 Q%=ASC(MID$(M$(M%),5,1)):B%=ASC(MID$(M$(M%),6,1))
  5350 V%=ASC(MID$(M$(M%),7,1))
  5360 POKE781,X%:POKE782,0:POKE783,48:SYS58634
  5370 PRINTTAB(Y%)CHR$(B%)"┌"LEFT$(Z$,L%)"┐"
  5380 IFQ%=1THENPRINTTAB(Y%)"│"CHR$(30)RIGHT$(M$(M%),L%)CHR$(B%)"│"
  5390 IFQ%=1THENPRINTTAB(Y%)"├"LEFT$(Z$,L%)"┤"
  5400 FORI=1TOD%
  5410 PRINTTAB(Y%)"│"CHR$(V%)M$(M%+I)LEFT$(Y$,L%-LEN(M$(M%+I)))CHR$(B%)"│":NEXT
  5420 PRINTTAB(Y%)"└"LEFT$(Z$,L%)"┘"
  5430 POKE680,Y%+1:POKE681,Y%+L%
  5440 POKE682,X%+1+2*Q%:POKE683,PEEK(682)+D%-1
  5450 RETURN
  5460 REM *** FLASH BAR
  5470 T%=PEEK(49408):T1%=PEEK(49396):POKE49396,0:POKE49408,0:POKE49871,0
  5480 FORI=0TO14:POKE679,1-PEEK(679)
  5490 FORD=0TO18:NEXT
  5500 NEXT:S%=PEEK(49886):POKE679,0:POKE49408,T%:POKE49396,T1%:RETURN
  5510 REM *** CLEAR WINDOW SPACE
  5520 PRINTCHR$(19)CHR$(17)
  5530 FORI=0TO17:PRINTY$:NEXT
  5540 RETURN
  5550 REM *** HANDLE ACCEL & VELOC
  5560 POKE684,15
  5570 POKE679,1:POKE781,X%:POKE782,Y%:SYS58634
  5580 A$=STR$(A%)+" ":PRINTCHR$(150)MID$(A$,2,2)
  5590 GOSUB5260:IFPEEK(710)=0THEN5590
  5600 GOSUB5470
  5610 P%=S%-(X%+1)
  5620 ONP%GOTO5630,5640,5650,5660
  5630 A%=A%+1:A%=A%ANDL%:GOTO5570
  5640 A%=A%-1:A%=A%ANDL%:GOTO5570
  5650 A%=N%:GOTO5570
  5660 GOSUB5520:RETURN
  5670 REM *** PRINT COLOUR BLOCKS
  5680 POKE781,X%:POKE782,0:SYS58634
  5690 PRINTTAB(2)CHR$(158)"┌"LEFT$(Z$,2*(16-L%))"┐"
  5700 PRINTTAB(2)"│"CHR$(18);:FORI=L%TO15:PRINTCHR$(C%(I))"  ";:NEXT
  5710 PRINTCHR$(146)CHR$(158)"│"
  5720 PRINTTAB(2)"│"CHR$(18);:FORI=L%TO15:PRINTCHR$(C%(I))"  ";:NEXT
  5730 PRINTCHR$(146)CHR$(158)"│"
  5740 PRINTTAB(2)"└"LEFT$(Z$,2*(16-L%))"┘":RETURN
  8000 DATA144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
  8010 DATA2,1,16,6,1,154,155,"  🭾REFERENCES   "
  8020 DATA"♠CCELERATION","╮NITIAL VELOCITY","╲AXIMUM VELOCITY","🭸ONTROL DEVICE"
  8025 DATA"♠TTRIBUTES","🭶XIT"
  8030 DATA6,5,15,4,1,158,153,"♠CCELERATION   "
  8040 DATA"♠CCELERATION +1","♠CCELERATION -1","╱ORMAL ACCEL.","🭶XIT"
  8050 DATA7,5,19,4,1,158,153,"╮NITIAL ╳ELOCITY   "
  8060 DATA"╮NITIAL VELOCITY +1","╮NITIAL VELOCITY -1","╱ORMAL VELOCITY","🭶XIT"
  8070 DATA8,5,19,4,1,158,153,"╲AXIMUM ╳ELOCITY   "
  8080 DATA"╲AXIMUM VELOCITY +1","╲AXIMUM VELOCITY -1","╱ORMAL MAXIMUM","🭶XIT"
  8090 DATA9,5,14,4,1,158,154,"🭸ONTROL 🭷EVICE"
  8100 DATA"╰OYSTICK 1","╰OYSTICK 2","╯EYBOARD","🭶XIT"
  8110 DATA10,5,19,4,1,159,155,"    ♠TTRIBUTES     "
  8120 DATA"🭰OP LINE TEXT","🭰OP LINE BACKGROUND","🭾OINTER COLOUR","🭶XIT"
  8130 DATA2,9,22,2,1,159,154,"♥AVE 🭾ROGRAM AND 🭸ODE ","🭾LEASE ENTER FILENAME:",""
  8140 DATA6,13,19,2,0,155,154,"","🭾LEASE ENTER DEVICE","(🭰)APE OR (🭷)ISK"
  8150 DATA8,15,22,2,0,154,155,"","♥TART TAPE,","THEN PRESS ANY KEY"


-�Z%�0�Z%�1:�631,32:�198,1:�"P.CODE",8,1K
� *** PREFERENCES PROGRAMk� *** TO DEMONSTRATE USE OF�� *** POINTER CODE.�(� *** BY WILLIAM PHILLIPS 1988.�2:�<�5010�F�5220�P�5180�Z�5260�_��(49886)�0�90		dX%��(49872)�256�(�(49873)�1)	n�X%�25�X%�162�1506	x�X%�164�X%�259�550Z	��X%�260�X%�341��49274:��(147):�b	��90q	�M%�0:�5320�	��684,7:�679,1�	��5260:��(710)�0�170�	��5470�	�Y%�S%�4�	��Y%�210,250,290,330,390,540�	�M%�7:�5320�	�A%��(49413)
�X%�7:Y%�19:L%�31:N%�19:�5560#
��49413,A%:�903
�M%�12:�5320C
A%��(49408)b
X%�8:Y%�23:L%�7:N%�1:�5560t
�49408,A%:�90�
"M%�17:�5320�
,A%��(49396)�
6X%�9:Y%�23:L%�7:N%�5:�5560�
@�49396,A%:�90�
JM%�22:�5320�
T�684,3:�679,1�
^�5260:��(710)�0�350h�5470:�5520(rDC%�S%�12:�DC%�3�540>|DV%�DC%:�DV%�2�80P�DV%�1�DV%:�80`�M%�27:�5320s��684,14:�679,1���5260:��(710)�0�410���5470��G%�S%�13:�G%�3�540��L%�0:�G%�2�L%�1��X%�14�G%:�5680���5260��Y%��(49886)��Y%�(X%�1)�Y%�(X%�2)��460�Y%��(49885)7��Y%�3�Y%�2�(17�L%)��460M�P%��((Y%�3)�2)�L%^��G%�0�TL%�P%r�G%�1��49332,P%��G%�2��53287,P%��5520:�70�&M%�32:�5320�0�781,6:�782,10:�58634:��(158)"]"�(Y$,13):�53269,0	
5T%��(49408):T1%��(49396):�49396,0:�49408,0
:F$�""D
D�781,6:�782,11:�58634:�F$;" ";�(157);:�204,0Z
N�A$:�A$��(13)�640|
X�A$��(20)��(F$)�0��204,1:�" "�
]�A$��(20)��(F$)�0�F$��(F$,�(F$)�1):�580�
b�A$�" "�A$�"�"�590�
l��(F$)�13�F$�F$�A$�
v�580�
��204,1:�F$�""�800�M%�35:�5320<�R%�0:�A$:�A$�"�"�A$�"T"�R%�1:F$��(5)��(14)��(8)�F$Y��A$�"�"�A$�"D"�R%�8:�710g��R%�0�670w�M%�38:�5320���(�(1)�16)�16�705���A$:�A$�""�705���49274:�F$,R%,1���186,R%:�184,1:�185,1��F$�"P.CODE":�I�1�6:�53230�I,�(�(F$,I,1)):���183,6:�187,239:�188,207.��251,0:�252,192C�781,93:�782,195P�780,251b�65496:�65484m �49152�*�49408,T%:�49396,T1%:�540������ *** INITIALISE���679,0:�710,0:��(147)�(14)�(8)���53280,0:�53281,0���I�685�709:�I,1:���49332,1:�49413,19"��49396,5:�49408,1<��49872,128:�49874,128R��49873,0:�53287,1b�DV%�2:TL%�6u��C%(15),M$(40)���I�0�15:�C%(I):���Z$�"��������������������������������"��Y$�"                                       "��K%�0:�I�0�81�X%,Y%,L%,D%,Q%,B%,V%,T$:M$(K%)��(X%)��(Y%)��(L%)��(D%)l
M$(K%)�M$(K%)��(Q%)��(B%)��(V%)�T$:�D�1�D%:�M$(K%�D):�}K%�K%�1�D%:���781,24:�782,1:�783,48:�658,1:�58634�#��(153)"'�REFERENCES' PROGRAM BY �. �HILLIPS"�(�49152:��2� *** SET DEVICE<�49884,DV%�2F�49337,DV%�1"P�;Z� *** PRINT TOP LINE{d��(19)�(C%(TL%))�(18)�(165)"   �REFERENCES  �  �TORAGE  �";�n�"  �UIT   "�(167)�(146)�x���� *** CHECK FIRE���DV%�2�5290��F%��(56320�DV%)�16:�F%�16�5270�����A$:�A$���(13)�5290
���� *** PRINT MENUI�X%��(�(M$(M%),1)):Y%��(�(M$(M%),2,1))u�L%��(�(M$(M%),3,1)):D%��(�(M$(M%),4,1))��Q%��(�(M$(M%),5,1)):B%��(�(M$(M%),6,1))��V%��(�(M$(M%),7,1))���781,X%:�782,0:�783,48:�58634����Y%)�(B%)"�"�(Z$,L%)"�"$�Q%�1���Y%)"�"�(30)�(M$(M%),L%)�(B%)"�"B�Q%�1���Y%)"�"�(Z$,L%)"�"N�I�1�D%�"��Y%)"�"�(V%)M$(M%�I)�(Y$,L%��(M$(M%�I)))�(B%)"�":��,��Y%)"�"�(Z$,L%)"�"�6�680,Y%�1:�681,Y%�L%�@�682,X%�1�2�Q%:�683,�(682)�D%�1�J��T� *** FLASH BAR-^T%��(49408):T1%��(49396):�49396,0:�49408,0:�49871,0Gh�I�0�14:�679,1��(679)Ur�D�0�18:��|�:S%��(49886):�679,0:�49408,T%:�49396,T1%:���� *** CLEAR WINDOW SPACE����(19)�(17)���I�0�17:�Y$:������� *** HANDLE ACCEL & VELOC���684,15��679,1:�781,X%:�782,Y%:�586349�A$��(A%)�" ":��(150)�(A$,2,2)R��5260:��(710)�0�5590\��5470m�P%�S%�(X%�1)���P%�5630,5640,5650,5660��A%�A%�1:A%�A%�L%:�5570�A%�A%�1:A%�A%�L%:�5570�A%�N%:�5570��5520:��&� *** PRINT COLOUR BLOCKS0�781,X%:�782,0:�586347:��2)�(158)"�"�(Z$,2�(16�L%))"�"cD��2)"�"�(18);:�I�L%�15:��(C%(I))"  ";:�xN��(146)�(158)"�"�X��2)"�"�(18);:�I�L%�15:��(C%(I))"  ";:��b��(146)�(158)"�"�l��2)"�"�(Z$,2�(16�L%))"�":�@�144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155DJ�2,1,16,6,1,154,155,"  �REFERENCES   "�T�"�CCELERATION","�NITIAL VELOCITY","�AXIMUM VELOCITY","�ONTROL DEVICE"�Y�"�TTRIBUTES","�XIT"�^�6,5,15,4,1,158,153,"�CCELERATION   "h�"�CCELERATION +1","�CCELERATION -1","�ORMAL ACCEL.","�XIT"@r�7,5,19,4,1,158,153,"�NITIAL �ELOCITY   "�|�"�NITIAL VELOCITY +1","�NITIAL VELOCITY -1","�ORMAL VELOCITY","�XIT"���8,5,19,4,1,158,153,"�AXIMUM �ELOCITY   "��"�AXIMUM VELOCITY +1","�AXIMUM VELOCITY -1","�ORMAL MAXIMUM","�XIT"*��9,5,14,4,1,158,154,"�ONTROL �EVICE"[��"�OYSTICK 1","�OYSTICK 2","�EYBOARD","�XIT"���10,5,19,4,1,159,155,"    �TTRIBUTES     "���"�OP LINE TEXT","�OP LINE BACKGROUND","�OINTER COLOUR","�XIT"��2,9,22,2,1,159,154,"�AVE �ROGRAM AND �ODE ","�LEASE ENTER FILENAME:",""_��6,13,19,2,0,155,154,"","�LEASE ENTER DEVICE","(�)APE OR (�)ISK"���8,15,22,2,0,154,155,"","�TART TAPE,","THEN PRESS ANY KEY"
-HE@.z%.0.z%.1:.631,32:.198,1:."p.code",8,1@kHJ@. *** preferences program@KHT@. *** to demonstrate use of@.H.@. *** pointer code.@.H(@. *** by william phillips 1988.@.H2@:@.H<@.5010@.Hf@.5220@.Hp@.5180@.Hz@.5260@.H.@..(49886).0.90@IID@x%..(49872).256.(.(49873).1)@.IN@.x%.25.x%.162.150@6IX@.x%.164.x%.259.550@zI.@.x%.260.x%.341..49274:..(147):.@BI.@.90@QI.@m%.0:.5320@.I.@.684,7:.679,1@.I.@.5260:..(710).0.170@.I.@.5470@.I.@y%.s%.4@.I.@.y%.210,250,290,330,390,540@.I.@m%.7:.5320@.I.@a%..(49413)@QJ.@x%.7:y%.19:l%.31:n%.19:.5560@#J.@.49413,a%:.90@3J.@m%.12:.5320@cJDAa%..(49408)@BJNAx%.8:y%.23:l%.7:n%.1:.5560@TJXA.49408,a%:.90@.J"Am%.17:.5320@.J,Aa%..(49396)@.J6Ax%.9:y%.23:l%.7:n%.5:.5560@.J@A.49396,a%:.90@.JjAm%.22:.5320@.JtA.684,3:.679,1@.J.A.5260:..(710).0.350@OKHA.5470:.5520@(KRAdc%.s%.12:.dc%.3.540@>K.Adv%.dc%:.dv%.2.80@pK.Adv%.1.dv%:.80@.K.Am%.27:.5320@SK.A.684,14:.679,1@.K.A.5260:..(710).0.410@.K.A.5470@.K.Ag%.s%.13:.g%.3.540@.K.Al%.0:.g%.2.l%.1@.K.Ax%.14.g%:.5680@.K.A.5260@.K.Ay%..(49886)@KL.A.y%.(x%.1).y%.(x%.2)..460@[L.Ay%..(49885)@7L.A.y%.3.y%.2.(17.l%)..460@mL.Ap%..((y%.3).2).l%@.L.A.g%.0.tl%.p%@RLHB.g%.1..49332,p%@.LRB.g%.2..53287,p%@.L£B.5520:.70@.L&Bm%.32:.5320@.L0B.781,6:.782,10:.58634:..(158)"]".(y$,13):.53269,0@IM5Bt%..(49408):t1%..(49396):.49396,0:.49408,0@SM:Bf$.""@dMdB.781,6:.782,11:.58634:.f$;" ";.(157);:.204,0@zMnB.a$:.a$..(13).640@.MxB.a$..(20)..(f$).0..204,1:." "@.M]B.a$..(20)..(f$).0.f$..(f$,.(f$).1):.580@.MBB.a$." ".a$.".".590@.MLB..(f$).13.f$.f$.a$@.MVB.580@.M.B.204,1:.f$."".800@EN.Bm%.35:.5320@<N.Br%.0:.a$:.a$.".".a$."t".r%.1:f$..(5)..(14)..(8).f$@yN.B.a$.".".a$."d".r%.8:.710@GN.B.r%.0.670@WN.Bm%.38:.5320@.N.B.(.(1).16).16.705@.N.B.a$:.a$."".705@.N.B.49274:.f$,r%,1@.N.B.186,r%:.184,1:.185,1@.N.Bf$."p.code":.i.1.6:.53230.i,.(.(f$,i,1)):.@ZO.B.183,6:.187,239:.188,207@.O.B.251,0:.252,192@cOBC.781,93:.782,195@pOLC.780,251@BOVC.65496:.65484@MO C.49152@.O*C.49408,t%:.49396,t1%:.540@.O.O.@.O.S. *** initialise@.O.S.679,0:.710,0:..(147).(14).(8)@.O.S.53280,0:.53281,0@.O.S.i.685.709:.i,1:.@LP.S.49332,1:.49413,19@"P.S.49396,5:.49408,1@<P.S.49872,128:.49874,128@rP.S.49873,0:.53287,1@BP.Sdv%.2:tl%.6@UP.S.c%(15),m$(40)@.P.S.i.0.15:.c%(i):.@.P.Sz$."................................"@.P.Sy$."                                       "@.P.Sk%.0:.i.0.8@1Q@T.x%,y%,l%,d%,q%,b%,v%,t$:m$(k%)..(x%)..(y%)..(l%)..(d%)@LQJTm$(k%).m$(k%)..(q%)..(b%)..(v%).t$:.d.1.d%:.m$(k%.d):.@.QTTk%.k%.1.d%:.@.Q.T.781,24:.782,1:.783,48:.658,1:.58634@.Q#T..(153)"'.references' program by .. .hillips"@.Q(T.49152:.@.Q2T. *** set device@KR<T.49884,dv%.2@£RfT.49337,dv%.1@"RpT.@;RzT. *** print top line@.RDT..(19).(c%(tl%)).(18).(165)"   .references  .  .torage  .";@.RNT."  .uit   ".(167).(146)@.RXT.@.R.T. *** check fire@.R.T.dv%.2.5290@.R.Tf%..(56320.dv%).16:.f%.16.5270@.R.T.@DS.T.a$:.a$...(13).5290@JS.T.@.S.T. *** print menu@iS.Tx%..(.(m$(m%),1)):y%..(.(m$(m%),2,1))@US.Tl%..(.(m$(m%),3,1)):d%..(.(m$(m%),4,1))@.S.Tq%..(.(m$(m%),5,1)):b%..(.(m$(m%),6,1))@.S.Tv%..(.(m$(m%),7,1))@.S.T.781,x%:.782,0:.783,48:.58634@.S.T..y%).(b%)".".(z$,l%)"."@$TDU.q%.1...y%)".".(30).(m$(m%),l%).(b%)"."@bTNU.q%.1...y%)".".(z$,l%)"."@nTXU.i.1.d%@.T"U..y%)".".(v%)m$(m%.i).(y$,l%..(m$(m%.i))).(b%)".":.@.T,U..y%)".".(z$,l%)"."@.T6U.680,y%.1:.681,y%.l%@.T@U.682,x%.1.2.q%:.683,.(682).d%.1@.TjU.@.TtU. *** flash bar@-U.Ut%..(49408):t1%..(49396):.49396,0:.49408,0:.49871,0@gUHU.i.0.14:.679,1..(679)@uURU.d.0.18:.@.U.U.:s%..(49886):.679,0:.49408,t%:.49396,t1%:.@.U.U. *** clear window space@.U.U..(19).(17)@.U.U.i.0.17:.y$:.@.U.U.@.U.U. *** handle accel & veloc@.U.U.684,15@WV.U.679,1:.781,x%:.782,y%:.58634@9V.Ua$..(a%)." ":..(150).(a$,2,2)@rV.U.5260:..(710).0.5590@£V.U.5470@MV.Up%.s%.(x%.1)@.V.U.p%.5630,5640,5650,5660@.V.Ua%.a%.1:a%.a%.l%:.5570@.VHVa%.a%.1:a%.a%.l%:.5570@.VRVa%.n%:.5570@.V£V.5520:.@.V&V. *** print colour blocks@SW0V.781,x%:.782,0:.58634@7W:V..2).(158)".".(z$,2.(16.l%))"."@CWdV..2)".".(18);:.i.l%.15:..(c%(i))"  ";:.@XWnV..(146).(158)"."@.WxV..2)".".(18);:.i.l%.15:..(c%(i))"  ";:.@.WBV..(146).(158)"."@.WLV..2)".".(z$,2.(16.l%))".":.@YX@..144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155@dXj..2,1,16,6,1,154,155,"  .references   "@.Xt..".cceleration",".nitial velocity",".aximum velocity",".ontrol device"@.Xy..".ttributes",".xit"@.X...6,5,15,4,1,158,153,".cceleration   "@RYH..".cceleration +1",".cceleration -1",".ormal accel.",".xit"@@YR..7,5,19,4,1,158,153,".nitial .elocity   "@.Y...".nitial velocity +1",".nitial velocity -1",".ormal velocity",".xit"@.Y...8,5,19,4,1,158,153,".aximum .elocity   "@AZ...".aximum velocity +1",".aximum velocity -1",".ormal maximum",".xit"@*Z...9,5,14,4,1,158,154,".ontrol .evice"@[Z...".oystick 1",".oystick 2",".eyboard",".xit"@.Z...10,5,19,4,1,159,155,"    .ttributes     "@.Z...".op line text",".op line background",".ointer colour",".xit"@Z[...2,9,22,2,1,159,154,".ave .rogram and .ode ",".lease enter filename:",""@.[...6,13,19,2,0,155,154,"",".lease enter device","(.)ape or (.)isk"@.[...8,15,22,2,0,154,155,"",".tart tape,","then press any key"@@@
00000000  2d 08 05 00 8b 5a 25 b2  30 a7 5a 25 b2 31 3a 97  |-....Z%.0.Z%.1:.|
00000010  36 33 31 2c 33 32 3a 97  31 39 38 2c 31 3a 93 22  |631,32:.198,1:."|
00000020  50 2e 43 4f 44 45 22 2c  38 2c 31 00 4b 08 0a 00  |P.CODE",8,1.K...|
00000030  8f 20 2a 2a 2a 20 50 52  45 46 45 52 45 4e 43 45  |. *** PREFERENCE|
00000040  53 20 50 52 4f 47 52 41  4d 00 6b 08 14 00 8f 20  |S PROGRAM.k.... |
00000050  2a 2a 2a 20 54 4f 20 44  45 4d 4f 4e 53 54 52 41  |*** TO DEMONSTRA|
00000060  54 45 20 55 53 45 20 4f  46 00 83 08 1e 00 8f 20  |TE USE OF...... |
00000070  2a 2a 2a 20 50 4f 49 4e  54 45 52 20 43 4f 44 45  |*** POINTER CODE|
00000080  2e 00 a7 08 28 00 8f 20  2a 2a 2a 20 42 59 20 57  |....(.. *** BY W|
00000090  49 4c 4c 49 41 4d 20 50  48 49 4c 4c 49 50 53 20  |ILLIAM PHILLIPS |
000000a0  31 39 38 38 2e 00 ad 08  32 00 3a 00 b7 08 3c 00  |1988....2.:...<.|
000000b0  8d 35 30 31 30 00 c1 08  46 00 8d 35 32 32 30 00  |.5010...F..5220.|
000000c0  cb 08 50 00 8d 35 31 38  30 00 d5 08 5a 00 8d 35  |..P..5180...Z..5|
000000d0  32 36 30 00 e8 08 5f 00  8b c2 28 34 39 38 38 36  |260..._...(49886|
000000e0  29 b1 30 a7 39 30 00 09  09 64 00 58 25 b2 c2 28  |).0.90...d.X%..(|
000000f0  34 39 38 37 32 29 aa 32  35 36 ac 28 c2 28 34 39  |49872).256.(.(49|
00000100  38 37 33 29 af 31 29 00  1f 09 6e 00 8b 58 25 b1  |873).1)...n..X%.|
00000110  32 35 af 58 25 b3 31 36  32 a7 31 35 30 00 36 09  |25.X%.162.150.6.|
00000120  78 00 8b 58 25 b1 31 36  34 af 58 25 b3 32 35 39  |x..X%.164.X%.259|
00000130  a7 35 35 30 00 5a 09 82  00 8b 58 25 b1 32 36 30  |.550.Z....X%.260|
00000140  af 58 25 b3 33 34 31 a7  9e 34 39 32 37 34 3a 99  |.X%.341..49274:.|
00000150  c7 28 31 34 37 29 3a 80  00 62 09 8c 00 89 39 30  |.(147):..b....90|
00000160  00 71 09 96 00 4d 25 b2  30 3a 8d 35 33 32 30 00  |.q...M%.0:.5320.|
00000170  83 09 a0 00 97 36 38 34  2c 37 3a 97 36 37 39 2c  |.....684,7:.679,|
00000180  31 00 9b 09 aa 00 8d 35  32 36 30 3a 8b c2 28 37  |1......5260:..(7|
00000190  31 30 29 b2 30 a7 31 37  30 00 a5 09 b4 00 8d 35  |10).0.170......5|
000001a0  34 37 30 00 b1 09 be 00  59 25 b2 53 25 ab 34 00  |470.....Y%.S%.4.|
000001b0  d1 09 c8 00 91 59 25 89  32 31 30 2c 32 35 30 2c  |.....Y%.210,250,|
000001c0  32 39 30 2c 33 33 30 2c  33 39 30 2c 35 34 30 00  |290,330,390,540.|
000001d0  e0 09 d2 00 4d 25 b2 37  3a 8d 35 33 32 30 00 f0  |....M%.7:.5320..|
000001e0  09 dc 00 41 25 b2 c2 28  34 39 34 31 33 29 00 11  |...A%..(49413)..|
000001f0  0a e6 00 58 25 b2 37 3a  59 25 b2 31 39 3a 4c 25  |...X%.7:Y%.19:L%|
00000200  b2 33 31 3a 4e 25 b2 31  39 3a 8d 35 35 36 30 00  |.31:N%.19:.5560.|
00000210  23 0a f0 00 97 34 39 34  31 33 2c 41 25 3a 89 39  |#....49413,A%:.9|
00000220  30 00 33 0a fa 00 4d 25  b2 31 32 3a 8d 35 33 32  |0.3...M%.12:.532|
00000230  30 00 43 0a 04 01 41 25  b2 c2 28 34 39 34 30 38  |0.C...A%..(49408|
00000240  29 00 62 0a 0e 01 58 25  b2 38 3a 59 25 b2 32 33  |).b...X%.8:Y%.23|
00000250  3a 4c 25 b2 37 3a 4e 25  b2 31 3a 8d 35 35 36 30  |:L%.7:N%.1:.5560|
00000260  00 74 0a 18 01 97 34 39  34 30 38 2c 41 25 3a 89  |.t....49408,A%:.|
00000270  39 30 00 84 0a 22 01 4d  25 b2 31 37 3a 8d 35 33  |90...".M%.17:.53|
00000280  32 30 00 94 0a 2c 01 41  25 b2 c2 28 34 39 33 39  |20...,.A%..(4939|
00000290  36 29 00 b3 0a 36 01 58  25 b2 39 3a 59 25 b2 32  |6)...6.X%.9:Y%.2|
000002a0  33 3a 4c 25 b2 37 3a 4e  25 b2 35 3a 8d 35 35 36  |3:L%.7:N%.5:.556|
000002b0  30 00 c5 0a 40 01 97 34  39 33 39 36 2c 41 25 3a  |0...@..49396,A%:|
000002c0  89 39 30 00 d5 0a 4a 01  4d 25 b2 32 32 3a 8d 35  |.90...J.M%.22:.5|
000002d0  33 32 30 00 e7 0a 54 01  97 36 38 34 2c 33 3a 97  |320...T..684,3:.|
000002e0  36 37 39 2c 31 00 ff 0a  5e 01 8d 35 32 36 30 3a  |679,1...^..5260:|
000002f0  8b c2 28 37 31 30 29 b2  30 a7 33 35 30 00 0f 0b  |..(710).0.350...|
00000300  68 01 8d 35 34 37 30 3a  8d 35 35 32 30 00 28 0b  |h..5470:.5520.(.|
00000310  72 01 44 43 25 b2 53 25  ab 31 32 3a 8b 44 43 25  |r.DC%.S%.12:.DC%|
00000320  b2 33 a7 35 34 30 00 3e  0b 7c 01 44 56 25 b2 44  |.3.540.>.|.DV%.D|
00000330  43 25 3a 8b 44 56 25 b2  32 a7 38 30 00 50 0b 81  |C%:.DV%.2.80.P..|
00000340  01 44 56 25 b2 31 ab 44  56 25 3a 89 38 30 00 60  |.DV%.1.DV%:.80.`|
00000350  0b 86 01 4d 25 b2 32 37  3a 8d 35 33 32 30 00 73  |...M%.27:.5320.s|
00000360  0b 90 01 97 36 38 34 2c  31 34 3a 97 36 37 39 2c  |....684,14:.679,|
00000370  31 00 8b 0b 9a 01 8d 35  32 36 30 3a 8b c2 28 37  |1......5260:..(7|
00000380  31 30 29 b2 30 a7 34 31  30 00 95 0b a4 01 8d 35  |10).0.410......5|
00000390  34 37 30 00 ac 0b ae 01  47 25 b2 53 25 ab 31 33  |470.....G%.S%.13|
000003a0  3a 8b 47 25 b2 33 a7 35  34 30 00 c0 0b b8 01 4c  |:.G%.3.540.....L|
000003b0  25 b2 30 3a 8b 47 25 b2  32 a7 4c 25 b2 31 00 d3  |%.0:.G%.2.L%.1..|
000003c0  0b c2 01 58 25 b2 31 34  aa 47 25 3a 8d 35 36 38  |...X%.14.G%:.568|
000003d0  30 00 dd 0b cc 01 8d 35  32 36 30 00 ed 0b d6 01  |0......5260.....|
000003e0  59 25 b2 c2 28 34 39 38  38 36 29 00 0b 0c e0 01  |Y%..(49886).....|
000003f0  8b 59 25 b3 28 58 25 aa  31 29 b0 59 25 b1 28 58  |.Y%.(X%.1).Y%.(X|
00000400  25 aa 32 29 a7 89 34 36  30 00 1b 0c ea 01 59 25  |%.2)..460.....Y%|
00000410  b2 c2 28 34 39 38 38 35  29 00 37 0c ef 01 8b 59  |..(49885).7....Y|
00000420  25 b3 33 b0 59 25 b1 32  ac 28 31 37 ab 4c 25 29  |%.3.Y%.2.(17.L%)|
00000430  a7 89 34 36 30 00 4d 0c  f4 01 50 25 b2 b5 28 28  |..460.M...P%..((|
00000440  59 25 ab 33 29 ad 32 29  aa 4c 25 00 5e 0c fe 01  |Y%.3).2).L%.^...|
00000450  8b 47 25 b2 30 a7 54 4c  25 b2 50 25 00 72 0c 08  |.G%.0.TL%.P%.r..|
00000460  02 8b 47 25 b2 31 a7 97  34 39 33 33 32 2c 50 25  |..G%.1..49332,P%|
00000470  00 86 0c 12 02 8b 47 25  b2 32 a7 97 35 33 32 38  |......G%.2..5328|
00000480  37 2c 50 25 00 94 0c 1c  02 8d 35 35 32 30 3a 89  |7,P%......5520:.|
00000490  37 30 00 a4 0c 26 02 4d  25 b2 33 32 3a 8d 35 33  |70...&.M%.32:.53|
000004a0  32 30 00 da 0c 30 02 97  37 38 31 2c 36 3a 97 37  |20...0..781,6:.7|
000004b0  38 32 2c 31 30 3a 9e 35  38 36 33 34 3a 99 c7 28  |82,10:.58634:..(|
000004c0  31 35 38 29 22 5d 22 c8  28 59 24 2c 31 33 29 3a  |158)"]".(Y$,13):|
000004d0  97 35 33 32 36 39 2c 30  00 09 0d 35 02 54 25 b2  |.53269,0...5.T%.|
000004e0  c2 28 34 39 34 30 38 29  3a 54 31 25 b2 c2 28 34  |.(49408):T1%..(4|
000004f0  39 33 39 36 29 3a 97 34  39 33 39 36 2c 30 3a 97  |9396):.49396,0:.|
00000500  34 39 34 30 38 2c 30 00  13 0d 3a 02 46 24 b2 22  |49408,0...:.F$."|
00000510  22 00 44 0d 44 02 97 37  38 31 2c 36 3a 97 37 38  |".D.D..781,6:.78|
00000520  32 2c 31 31 3a 9e 35 38  36 33 34 3a 99 46 24 3b  |2,11:.58634:.F$;|
00000530  22 20 22 3b c7 28 31 35  37 29 3b 3a 97 32 30 34  |" ";.(157);:.204|
00000540  2c 30 00 5a 0d 4e 02 a1  41 24 3a 8b 41 24 b2 c7  |,0.Z.N..A$:.A$..|
00000550  28 31 33 29 a7 36 34 30  00 7c 0d 58 02 8b 41 24  |(13).640.|.X..A$|
00000560  b2 c7 28 32 30 29 af c3  28 46 24 29 b1 30 a7 97  |..(20)..(F$).0..|
00000570  32 30 34 2c 31 3a 99 22  20 22 00 a8 0d 5d 02 8b  |204,1:." "...]..|
00000580  41 24 b2 c7 28 32 30 29  af c3 28 46 24 29 b1 30  |A$..(20)..(F$).0|
00000590  a7 46 24 b2 c8 28 46 24  2c c3 28 46 24 29 ab 31  |.F$..(F$,.(F$).1|
000005a0  29 3a 89 35 38 30 00 bf  0d 62 02 8b 41 24 b3 22  |):.580...b..A$."|
000005b0  20 22 b0 41 24 b1 22 da  22 a7 35 39 30 00 d6 0d  | ".A$.".".590...|
000005c0  6c 02 8b c3 28 46 24 29  b3 31 33 a7 46 24 b2 46  |l...(F$).13.F$.F|
000005d0  24 aa 41 24 00 df 0d 76  02 89 35 38 30 00 f5 0d  |$.A$...v..580...|
000005e0  80 02 97 32 30 34 2c 31  3a 8b 46 24 b2 22 22 a7  |...204,1:.F$."".|
000005f0  38 30 30 00 05 0e 94 02  4d 25 b2 33 35 3a 8d 35  |800.....M%.35:.5|
00000600  33 32 30 00 3c 0e 9e 02  52 25 b2 30 3a a1 41 24  |320.<...R%.0:.A$|
00000610  3a 8b 41 24 b2 22 d4 22  b0 41 24 b2 22 54 22 a7  |:.A$.".".A$."T".|
00000620  52 25 b2 31 3a 46 24 b2  c7 28 35 29 aa c7 28 31  |R%.1:F$..(5)..(1|
00000630  34 29 aa c7 28 38 29 aa  46 24 00 59 0e a8 02 8b  |4)..(8).F$.Y....|
00000640  41 24 b2 22 c4 22 b0 41  24 b2 22 44 22 a7 52 25  |A$.".".A$."D".R%|
00000650  b2 38 3a 89 37 31 30 00  67 0e b2 02 8b 52 25 b2  |.8:.710.g....R%.|
00000660  30 a7 36 37 30 00 77 0e  bc 02 4d 25 b2 33 38 3a  |0.670.w...M%.38:|
00000670  8d 35 33 32 30 00 8d 0e  c1 02 8b 28 c2 28 31 29  |.5320......(.(1)|
00000680  af 31 36 29 b2 31 36 a7  37 30 35 00 a0 0e c2 02  |.16).16.705.....|
00000690  a1 41 24 3a 8b 41 24 b2  22 22 a7 37 30 35 00 b4  |.A$:.A$."".705..|
000006a0  0e c6 02 9e 34 39 32 37  34 3a 94 46 24 2c 52 25  |....49274:.F$,R%|
000006b0  2c 31 00 ce 0e d0 02 97  31 38 36 2c 52 25 3a 97  |,1......186,R%:.|
000006c0  31 38 34 2c 31 3a 97 31  38 35 2c 31 00 fd 0e e4  |184,1:.185,1....|
000006d0  02 46 24 b2 22 50 2e 43  4f 44 45 22 3a 81 49 b2  |.F$."P.CODE":.I.|
000006e0  31 a4 36 3a 97 35 33 32  33 30 aa 49 2c c6 28 ca  |1.6:.53230.I,.(.|
000006f0  28 46 24 2c 49 2c 31 29  29 3a 82 00 1a 0f ee 02  |(F$,I,1)):......|
00000700  97 31 38 33 2c 36 3a 97  31 38 37 2c 32 33 39 3a  |.183,6:.187,239:|
00000710  97 31 38 38 2c 32 30 37  00 2e 0f f8 02 97 32 35  |.188,207......25|
00000720  31 2c 30 3a 97 32 35 32  2c 31 39 32 00 43 0f 02  |1,0:.252,192.C..|
00000730  03 97 37 38 31 2c 39 33  3a 97 37 38 32 2c 31 39  |..781,93:.782,19|
00000740  35 00 50 0f 0c 03 97 37  38 30 2c 32 35 31 00 62  |5.P....780,251.b|
00000750  0f 16 03 9e 36 35 34 39  36 3a 9e 36 35 34 38 34  |....65496:.65484|
00000760  00 6d 0f 20 03 9e 34 39  31 35 32 00 8b 0f 2a 03  |.m. ..49152...*.|
00000770  97 34 39 34 30 38 2c 54  25 3a 97 34 39 33 39 36  |.49408,T%:.49396|
00000780  2c 54 31 25 3a 89 35 34  30 00 91 0f 9f 0f 80 00  |,T1%:.540.......|
00000790  a6 0f 88 13 8f 20 2a 2a  2a 20 49 4e 49 54 49 41  |..... *** INITIA|
000007a0  4c 49 53 45 00 c9 0f 92  13 97 36 37 39 2c 30 3a  |LISE......679,0:|
000007b0  97 37 31 30 2c 30 3a 99  c7 28 31 34 37 29 c7 28  |.710,0:..(147).(|
000007c0  31 34 29 c7 28 38 29 00  df 0f 9c 13 97 35 33 32  |14).(8)......532|
000007d0  38 30 2c 30 3a 97 35 33  32 38 31 2c 30 00 f5 0f  |80,0:.53281,0...|
000007e0  a6 13 81 49 b2 36 38 35  a4 37 30 39 3a 97 49 2c  |...I.685.709:.I,|
000007f0  31 3a 82 00 0c 10 b0 13  97 34 39 33 33 32 2c 31  |1:.......49332,1|
00000800  3a 97 34 39 34 31 33 2c  31 39 00 22 10 b5 13 97  |:.49413,19."....|
00000810  34 39 33 39 36 2c 35 3a  97 34 39 34 30 38 2c 31  |49396,5:.49408,1|
00000820  00 3c 10 ba 13 97 34 39  38 37 32 2c 31 32 38 3a  |.<....49872,128:|
00000830  97 34 39 38 37 34 2c 31  32 38 00 52 10 c4 13 97  |.49874,128.R....|
00000840  34 39 38 37 33 2c 30 3a  97 35 33 32 38 37 2c 31  |49873,0:.53287,1|
00000850  00 62 10 ce 13 44 56 25  b2 32 3a 54 4c 25 b2 36  |.b...DV%.2:TL%.6|
00000860  00 75 10 d8 13 86 43 25  28 31 35 29 2c 4d 24 28  |.u....C%(15),M$(|
00000870  34 30 29 00 8a 10 e2 13  81 49 b2 30 a4 31 35 3a  |40)......I.0.15:|
00000880  87 43 25 28 49 29 3a 82  00 b4 10 ec 13 5a 24 b2  |.C%(I):......Z$.|
00000890  22 c0 c0 c0 c0 c0 c0 c0  c0 c0 c0 c0 c0 c0 c0 c0  |"...............|
000008a0  c0 c0 c0 c0 c0 c0 c0 c0  c0 c0 c0 c0 c0 c0 c0 c0  |................|
000008b0  c0 22 00 e5 10 f6 13 59  24 b2 22 20 20 20 20 20  |.".....Y$."     |
000008c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000008e0  20 20 22 00 f5 10 fb 13  4b 25 b2 30 3a 81 49 b2  |  ".....K%.0:.I.|
000008f0  30 a4 38 00 31 11 00 14  87 58 25 2c 59 25 2c 4c  |0.8.1....X%,Y%,L|
00000900  25 2c 44 25 2c 51 25 2c  42 25 2c 56 25 2c 54 24  |%,D%,Q%,B%,V%,T$|
00000910  3a 4d 24 28 4b 25 29 b2  c7 28 58 25 29 aa c7 28  |:M$(K%)..(X%)..(|
00000920  59 25 29 aa c7 28 4c 25  29 aa c7 28 44 25 29 00  |Y%)..(L%)..(D%).|
00000930  6c 11 0a 14 4d 24 28 4b  25 29 b2 4d 24 28 4b 25  |l...M$(K%).M$(K%|
00000940  29 aa c7 28 51 25 29 aa  c7 28 42 25 29 aa c7 28  |)..(Q%)..(B%)..(|
00000950  56 25 29 aa 54 24 3a 81  44 b2 31 a4 44 25 3a 87  |V%).T$:.D.1.D%:.|
00000960  4d 24 28 4b 25 aa 44 29  3a 82 00 7d 11 14 14 4b  |M$(K%.D):..}...K|
00000970  25 b2 4b 25 aa 31 aa 44  25 3a 82 00 a6 11 1e 14  |%.K%.1.D%:......|
00000980  97 37 38 31 2c 32 34 3a  97 37 38 32 2c 31 3a 97  |.781,24:.782,1:.|
00000990  37 38 33 2c 34 38 3a 97  36 35 38 2c 31 3a 9e 35  |783,48:.658,1:.5|
000009a0  38 36 33 34 00 d8 11 23  14 99 c7 28 31 35 33 29  |8634...#...(153)|
000009b0  22 27 d0 52 45 46 45 52  45 4e 43 45 53 27 20 50  |"'.REFERENCES' P|
000009c0  52 4f 47 52 41 4d 20 42  59 20 d7 2e 20 d0 48 49  |ROGRAM BY .. .HI|
000009d0  4c 4c 49 50 53 22 00 e5  11 28 14 9e 34 39 31 35  |LLIPS"...(..4915|
000009e0  32 3a 8e 00 fa 11 32 14  8f 20 2a 2a 2a 20 53 45  |2:....2.. *** SE|
000009f0  54 20 44 45 56 49 43 45  00 0b 12 3c 14 97 34 39  |T DEVICE...<..49|
00000a00  38 38 34 2c 44 56 25 af  32 00 1c 12 46 14 97 34  |884,DV%.2...F..4|
00000a10  39 33 33 37 2c 44 56 25  af 31 00 22 12 50 14 8e  |9337,DV%.1.".P..|
00000a20  00 3b 12 5a 14 8f 20 2a  2a 2a 20 50 52 49 4e 54  |.;.Z.. *** PRINT|
00000a30  20 54 4f 50 20 4c 49 4e  45 00 7b 12 64 14 99 c7  | TOP LINE.{.d...|
00000a40  28 31 39 29 c7 28 43 25  28 54 4c 25 29 29 c7 28  |(19).(C%(TL%)).(|
00000a50  31 38 29 c7 28 31 36 35  29 22 20 20 20 d0 52 45  |18).(165)"   .RE|
00000a60  46 45 52 45 4e 43 45 53  20 20 dd 20 20 d3 54 4f  |FERENCES  .  .TO|
00000a70  52 41 47 45 20 20 dd 22  3b 00 98 12 6e 14 99 22  |RAGE  .";...n.."|
00000a80  20 20 d1 55 49 54 20 20  20 22 c7 28 31 36 37 29  |  .UIT   ".(167)|
00000a90  c7 28 31 34 36 29 00 9e  12 78 14 8e 00 b3 12 82  |.(146)...x......|
00000aa0  14 8f 20 2a 2a 2a 20 43  48 45 43 4b 20 46 49 52  |.. *** CHECK FIR|
00000ab0  45 00 c3 12 8c 14 8b 44  56 25 b2 32 a7 35 32 39  |E......DV%.2.529|
00000ac0  30 00 e6 12 96 14 46 25  b2 c2 28 35 36 33 32 30  |0.....F%..(56320|
00000ad0  aa 44 56 25 29 af 31 36  3a 8b 46 25 b2 31 36 a7  |.DV%).16:.F%.16.|
00000ae0  35 32 37 30 00 ec 12 a0  14 8e 00 04 13 aa 14 a1  |5270............|
00000af0  41 24 3a 8b 41 24 b3 b1  c7 28 31 33 29 a7 35 32  |A$:.A$...(13).52|
00000b00  39 30 00 0a 13 b4 14 8e  00 1f 13 be 14 8f 20 2a  |90............ *|
00000b10  2a 2a 20 50 52 49 4e 54  20 4d 45 4e 55 00 49 13  |** PRINT MENU.I.|
00000b20  c8 14 58 25 b2 c6 28 c8  28 4d 24 28 4d 25 29 2c  |..X%..(.(M$(M%),|
00000b30  31 29 29 3a 59 25 b2 c6  28 ca 28 4d 24 28 4d 25  |1)):Y%..(.(M$(M%|
00000b40  29 2c 32 2c 31 29 29 00  75 13 d2 14 4c 25 b2 c6  |),2,1)).u...L%..|
00000b50  28 ca 28 4d 24 28 4d 25  29 2c 33 2c 31 29 29 3a  |(.(M$(M%),3,1)):|
00000b60  44 25 b2 c6 28 ca 28 4d  24 28 4d 25 29 2c 34 2c  |D%..(.(M$(M%),4,|
00000b70  31 29 29 00 a1 13 dc 14  51 25 b2 c6 28 ca 28 4d  |1)).....Q%..(.(M|
00000b80  24 28 4d 25 29 2c 35 2c  31 29 29 3a 42 25 b2 c6  |$(M%),5,1)):B%..|
00000b90  28 ca 28 4d 24 28 4d 25  29 2c 36 2c 31 29 29 00  |(.(M$(M%),6,1)).|
00000ba0  b9 13 e6 14 56 25 b2 c6  28 ca 28 4d 24 28 4d 25  |....V%..(.(M$(M%|
00000bb0  29 2c 37 2c 31 29 29 00  db 13 f0 14 97 37 38 31  |),7,1))......781|
00000bc0  2c 58 25 3a 97 37 38 32  2c 30 3a 97 37 38 33 2c  |,X%:.782,0:.783,|
00000bd0  34 38 3a 9e 35 38 36 33  34 00 f8 13 fa 14 99 a3  |48:.58634.......|
00000be0  59 25 29 c7 28 42 25 29  22 b0 22 c8 28 5a 24 2c  |Y%).(B%)".".(Z$,|
00000bf0  4c 25 29 22 ae 22 00 24  14 04 15 8b 51 25 b2 31  |L%)".".$....Q%.1|
00000c00  a7 99 a3 59 25 29 22 dd  22 c7 28 33 30 29 c9 28  |...Y%)".".(30).(|
00000c10  4d 24 28 4d 25 29 2c 4c  25 29 c7 28 42 25 29 22  |M$(M%),L%).(B%)"|
00000c20  dd 22 00 42 14 0e 15 8b  51 25 b2 31 a7 99 a3 59  |.".B....Q%.1...Y|
00000c30  25 29 22 ab 22 c8 28 5a  24 2c 4c 25 29 22 b3 22  |%)".".(Z$,L%)"."|
00000c40  00 4e 14 18 15 81 49 b2  31 a4 44 25 00 86 14 22  |.N....I.1.D%..."|
00000c50  15 99 a3 59 25 29 22 dd  22 c7 28 56 25 29 4d 24  |...Y%)".".(V%)M$|
00000c60  28 4d 25 aa 49 29 c8 28  59 24 2c 4c 25 ab c3 28  |(M%.I).(Y$,L%..(|
00000c70  4d 24 28 4d 25 aa 49 29  29 29 c7 28 42 25 29 22  |M$(M%.I))).(B%)"|
00000c80  dd 22 3a 82 00 9e 14 2c  15 99 a3 59 25 29 22 ad  |.":....,...Y%)".|
00000c90  22 c8 28 5a 24 2c 4c 25  29 22 bd 22 00 b7 14 36  |".(Z$,L%)"."...6|
00000ca0  15 97 36 38 30 2c 59 25  aa 31 3a 97 36 38 31 2c  |..680,Y%.1:.681,|
00000cb0  59 25 aa 4c 25 00 db 14  40 15 97 36 38 32 2c 58  |Y%.L%...@..682,X|
00000cc0  25 aa 31 aa 32 ac 51 25  3a 97 36 38 33 2c c2 28  |%.1.2.Q%:.683,.(|
00000cd0  36 38 32 29 aa 44 25 ab  31 00 e1 14 4a 15 8e 00  |682).D%.1...J...|
00000ce0  f5 14 54 15 8f 20 2a 2a  2a 20 46 4c 41 53 48 20  |..T.. *** FLASH |
00000cf0  42 41 52 00 2d 15 5e 15  54 25 b2 c2 28 34 39 34  |BAR.-.^.T%..(494|
00000d00  30 38 29 3a 54 31 25 b2  c2 28 34 39 33 39 36 29  |08):T1%..(49396)|
00000d10  3a 97 34 39 33 39 36 2c  30 3a 97 34 39 34 30 38  |:.49396,0:.49408|
00000d20  2c 30 3a 97 34 39 38 37  31 2c 30 00 47 15 68 15  |,0:.49871,0.G.h.|
00000d30  81 49 b2 30 a4 31 34 3a  97 36 37 39 2c 31 ab c2  |.I.0.14:.679,1..|
00000d40  28 36 37 39 29 00 55 15  72 15 81 44 b2 30 a4 31  |(679).U.r..D.0.1|
00000d50  38 3a 82 00 85 15 7c 15  82 3a 53 25 b2 c2 28 34  |8:....|..:S%..(4|
00000d60  39 38 38 36 29 3a 97 36  37 39 2c 30 3a 97 34 39  |9886):.679,0:.49|
00000d70  34 30 38 2c 54 25 3a 97  34 39 33 39 36 2c 54 31  |408,T%:.49396,T1|
00000d80  25 3a 8e 00 a2 15 86 15  8f 20 2a 2a 2a 20 43 4c  |%:....... *** CL|
00000d90  45 41 52 20 57 49 4e 44  4f 57 20 53 50 41 43 45  |EAR WINDOW SPACE|
00000da0  00 b2 15 90 15 99 c7 28  31 39 29 c7 28 31 37 29  |.......(19).(17)|
00000db0  00 c4 15 9a 15 81 49 b2  30 a4 31 37 3a 99 59 24  |......I.0.17:.Y$|
00000dc0  3a 82 00 ca 15 a4 15 8e  00 e9 15 ae 15 8f 20 2a  |:............. *|
00000dd0  2a 2a 20 48 41 4e 44 4c  45 20 41 43 43 45 4c 20  |** HANDLE ACCEL |
00000de0  26 20 56 45 4c 4f 43 00  f5 15 b8 15 97 36 38 34  |& VELOC......684|
00000df0  2c 31 35 00 17 16 c2 15  97 36 37 39 2c 31 3a 97  |,15......679,1:.|
00000e00  37 38 31 2c 58 25 3a 97  37 38 32 2c 59 25 3a 9e  |781,X%:.782,Y%:.|
00000e10  35 38 36 33 34 00 39 16  cc 15 41 24 b2 c4 28 41  |58634.9...A$..(A|
00000e20  25 29 aa 22 20 22 3a 99  c7 28 31 35 30 29 ca 28  |%)." ":..(150).(|
00000e30  41 24 2c 32 2c 32 29 00  52 16 d6 15 8d 35 32 36  |A$,2,2).R....526|
00000e40  30 3a 8b c2 28 37 31 30  29 b2 30 a7 35 35 39 30  |0:..(710).0.5590|
00000e50  00 5c 16 e0 15 8d 35 34  37 30 00 6d 16 ea 15 50  |.\....5470.m...P|
00000e60  25 b2 53 25 ab 28 58 25  aa 31 29 00 89 16 f4 15  |%.S%.(X%.1).....|
00000e70  91 50 25 89 35 36 33 30  2c 35 36 34 30 2c 35 36  |.P%.5630,5640,56|
00000e80  35 30 2c 35 36 36 30 00  a4 16 fe 15 41 25 b2 41  |50,5660.....A%.A|
00000e90  25 aa 31 3a 41 25 b2 41  25 af 4c 25 3a 89 35 35  |%.1:A%.A%.L%:.55|
00000ea0  37 30 00 bf 16 08 16 41  25 b2 41 25 ab 31 3a 41  |70.....A%.A%.1:A|
00000eb0  25 b2 41 25 af 4c 25 3a  89 35 35 37 30 00 cf 16  |%.A%.L%:.5570...|
00000ec0  12 16 41 25 b2 4e 25 3a  89 35 35 37 30 00 db 16  |..A%.N%:.5570...|
00000ed0  1c 16 8d 35 35 32 30 3a  8e 00 f9 16 26 16 8f 20  |...5520:....&.. |
00000ee0  2a 2a 2a 20 50 52 49 4e  54 20 43 4f 4c 4f 55 52  |*** PRINT COLOUR|
00000ef0  20 42 4c 4f 43 4b 53 00  13 17 30 16 97 37 38 31  | BLOCKS...0..781|
00000f00  2c 58 25 3a 97 37 38 32  2c 30 3a 9e 35 38 36 33  |,X%:.782,0:.5863|
00000f10  34 00 37 17 3a 16 99 a3  32 29 c7 28 31 35 38 29  |4.7.:...2).(158)|
00000f20  22 b0 22 c8 28 5a 24 2c  32 ac 28 31 36 ab 4c 25  |".".(Z$,2.(16.L%|
00000f30  29 29 22 ae 22 00 63 17  44 16 99 a3 32 29 22 dd  |))".".c.D...2)".|
00000f40  22 c7 28 31 38 29 3b 3a  81 49 b2 4c 25 a4 31 35  |".(18);:.I.L%.15|
00000f50  3a 99 c7 28 43 25 28 49  29 29 22 20 20 22 3b 3a  |:..(C%(I))"  ";:|
00000f60  82 00 78 17 4e 16 99 c7  28 31 34 36 29 c7 28 31  |..x.N...(146).(1|
00000f70  35 38 29 22 dd 22 00 a4  17 58 16 99 a3 32 29 22  |58)"."...X...2)"|
00000f80  dd 22 c7 28 31 38 29 3b  3a 81 49 b2 4c 25 a4 31  |.".(18);:.I.L%.1|
00000f90  35 3a 99 c7 28 43 25 28  49 29 29 22 20 20 22 3b  |5:..(C%(I))"  ";|
00000fa0  3a 82 00 b9 17 62 16 99  c7 28 31 34 36 29 c7 28  |:....b...(146).(|
00000fb0  31 35 38 29 22 dd 22 00  d9 17 6c 16 99 a3 32 29  |158)"."...l...2)|
00000fc0  22 ad 22 c8 28 5a 24 2c  32 ac 28 31 36 ab 4c 25  |".".(Z$,2.(16.L%|
00000fd0  29 29 22 bd 22 3a 8e 00  19 18 40 1f 83 31 34 34  |))".":....@..144|
00000fe0  2c 35 2c 32 38 2c 31 35  39 2c 31 35 36 2c 33 30  |,5,28,159,156,30|
00000ff0  2c 33 31 2c 31 35 38 2c  31 32 39 2c 31 34 39 2c  |,31,158,129,149,|
00001000  31 35 30 2c 31 35 31 2c  31 35 32 2c 31 35 33 2c  |150,151,152,153,|
00001010  31 35 34 2c 31 35 35 00  44 18 4a 1f 83 32 2c 31  |154,155.D.J..2,1|
00001020  2c 31 36 2c 36 2c 31 2c  31 35 34 2c 31 35 35 2c  |,16,6,1,154,155,|
00001030  22 20 20 d0 52 45 46 45  52 45 4e 43 45 53 20 20  |"  .REFERENCES  |
00001040  20 22 00 8f 18 54 1f 83  22 c1 43 43 45 4c 45 52  | "...T..".CCELER|
00001050  41 54 49 4f 4e 22 2c 22  c9 4e 49 54 49 41 4c 20  |ATION",".NITIAL |
00001060  56 45 4c 4f 43 49 54 59  22 2c 22 cd 41 58 49 4d  |VELOCITY",".AXIM|
00001070  55 4d 20 56 45 4c 4f 43  49 54 59 22 2c 22 c3 4f  |UM VELOCITY",".O|
00001080  4e 54 52 4f 4c 20 44 45  56 49 43 45 22 00 a8 18  |NTROL DEVICE"...|
00001090  59 1f 83 22 c1 54 54 52  49 42 55 54 45 53 22 2c  |Y..".TTRIBUTES",|
000010a0  22 c5 58 49 54 22 00 d2  18 5e 1f 83 36 2c 35 2c  |".XIT"...^..6,5,|
000010b0  31 35 2c 34 2c 31 2c 31  35 38 2c 31 35 33 2c 22  |15,4,1,158,153,"|
000010c0  c1 43 43 45 4c 45 52 41  54 49 4f 4e 20 20 20 22  |.CCELERATION   "|
000010d0  00 12 19 68 1f 83 22 c1  43 43 45 4c 45 52 41 54  |...h..".CCELERAT|
000010e0  49 4f 4e 20 2b 31 22 2c  22 c1 43 43 45 4c 45 52  |ION +1",".CCELER|
000010f0  41 54 49 4f 4e 20 2d 31  22 2c 22 ce 4f 52 4d 41  |ATION -1",".ORMA|
00001100  4c 20 41 43 43 45 4c 2e  22 2c 22 c5 58 49 54 22  |L ACCEL.",".XIT"|
00001110  00 40 19 72 1f 83 37 2c  35 2c 31 39 2c 34 2c 31  |.@.r..7,5,19,4,1|
00001120  2c 31 35 38 2c 31 35 33  2c 22 c9 4e 49 54 49 41  |,158,153,".NITIA|
00001130  4c 20 d6 45 4c 4f 43 49  54 59 20 20 20 22 00 8a  |L .ELOCITY   "..|
00001140  19 7c 1f 83 22 c9 4e 49  54 49 41 4c 20 56 45 4c  |.|..".NITIAL VEL|
00001150  4f 43 49 54 59 20 2b 31  22 2c 22 c9 4e 49 54 49  |OCITY +1",".NITI|
00001160  41 4c 20 56 45 4c 4f 43  49 54 59 20 2d 31 22 2c  |AL VELOCITY -1",|
00001170  22 ce 4f 52 4d 41 4c 20  56 45 4c 4f 43 49 54 59  |".ORMAL VELOCITY|
00001180  22 2c 22 c5 58 49 54 22  00 b8 19 86 1f 83 38 2c  |",".XIT"......8,|
00001190  35 2c 31 39 2c 34 2c 31  2c 31 35 38 2c 31 35 33  |5,19,4,1,158,153|
000011a0  2c 22 cd 41 58 49 4d 55  4d 20 d6 45 4c 4f 43 49  |,".AXIMUM .ELOCI|
000011b0  54 59 20 20 20 22 00 01  1a 90 1f 83 22 cd 41 58  |TY   "......".AX|
000011c0  49 4d 55 4d 20 56 45 4c  4f 43 49 54 59 20 2b 31  |IMUM VELOCITY +1|
000011d0  22 2c 22 cd 41 58 49 4d  55 4d 20 56 45 4c 4f 43  |",".AXIMUM VELOC|
000011e0  49 54 59 20 2d 31 22 2c  22 ce 4f 52 4d 41 4c 20  |ITY -1",".ORMAL |
000011f0  4d 41 58 49 4d 55 4d 22  2c 22 c5 58 49 54 22 00  |MAXIMUM",".XIT".|
00001200  2a 1a 9a 1f 83 39 2c 35  2c 31 34 2c 34 2c 31 2c  |*....9,5,14,4,1,|
00001210  31 35 38 2c 31 35 34 2c  22 c3 4f 4e 54 52 4f 4c  |158,154,".ONTROL|
00001220  20 c4 45 56 49 43 45 22  00 5b 1a a4 1f 83 22 ca  | .EVICE".[....".|
00001230  4f 59 53 54 49 43 4b 20  31 22 2c 22 ca 4f 59 53  |OYSTICK 1",".OYS|
00001240  54 49 43 4b 20 32 22 2c  22 cb 45 59 42 4f 41 52  |TICK 2",".EYBOAR|
00001250  44 22 2c 22 c5 58 49 54  22 00 8a 1a ae 1f 83 31  |D",".XIT"......1|
00001260  30 2c 35 2c 31 39 2c 34  2c 31 2c 31 35 39 2c 31  |0,5,19,4,1,159,1|
00001270  35 35 2c 22 20 20 20 20  c1 54 54 52 49 42 55 54  |55,"    .TTRIBUT|
00001280  45 53 20 20 20 20 20 22  00 cd 1a b8 1f 83 22 d4  |ES     "......".|
00001290  4f 50 20 4c 49 4e 45 20  54 45 58 54 22 2c 22 d4  |OP LINE TEXT",".|
000012a0  4f 50 20 4c 49 4e 45 20  42 41 43 4b 47 52 4f 55  |OP LINE BACKGROU|
000012b0  4e 44 22 2c 22 d0 4f 49  4e 54 45 52 20 43 4f 4c  |ND",".OINTER COL|
000012c0  4f 55 52 22 2c 22 c5 58  49 54 22 00 1a 1b c2 1f  |OUR",".XIT".....|
000012d0  83 32 2c 39 2c 32 32 2c  32 2c 31 2c 31 35 39 2c  |.2,9,22,2,1,159,|
000012e0  31 35 34 2c 22 d3 41 56  45 20 d0 52 4f 47 52 41  |154,".AVE .ROGRA|
000012f0  4d 20 41 4e 44 20 c3 4f  44 45 20 22 2c 22 d0 4c  |M AND .ODE ",".L|
00001300  45 41 53 45 20 45 4e 54  45 52 20 46 49 4c 45 4e  |EASE ENTER FILEN|
00001310  41 4d 45 3a 22 2c 22 22  00 5f 1b cc 1f 83 36 2c  |AME:",""._....6,|
00001320  31 33 2c 31 39 2c 32 2c  30 2c 31 35 35 2c 31 35  |13,19,2,0,155,15|
00001330  34 2c 22 22 2c 22 d0 4c  45 41 53 45 20 45 4e 54  |4,"",".LEASE ENT|
00001340  45 52 20 44 45 56 49 43  45 22 2c 22 28 d4 29 41  |ER DEVICE","(.)A|
00001350  50 45 20 4f 52 20 28 c4  29 49 53 4b 22 00 9e 1b  |PE OR (.)ISK"...|
00001360  d6 1f 83 38 2c 31 35 2c  32 32 2c 32 2c 30 2c 31  |...8,15,22,2,0,1|
00001370  35 34 2c 31 35 35 2c 22  22 2c 22 d3 54 41 52 54  |54,155,"",".TART|
00001380  20 54 41 50 45 2c 22 2c  22 54 48 45 4e 20 50 52  | TAPE,","THEN PR|
00001390  45 53 53 20 41 4e 59 20  4b 45 59 22 00 00 00     |ESS ANY KEY"...|
0000139f

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 15 Dec 2025, 16:13 UTC
Website designed by .