K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































	
:�190"
�AN��(AN$):�:� CH�1 � AN:� PR$:� CHH
��V�21,0:� "�":� 53280,0:� 53281,0l
���(L$,15)�10)"�LOADING "PR$"�"�
�� "LOAD";�(34);PR$;�(34);",8"�
�� "RUN":� "���������"�

� 631,13:� 632,13:� 198,2:��
,
�LI�6�186
��(L$,LI)"        K






























































































































































































































































	0 � �:A�0>�� �(L$,22)"            DOUBLE L SOFTWARE           "z�� �(L$,24)�7)"(C) ION INTERNATIONAL INC":�198,0:AN$�""��� �(L$,20)�8)"PRESS F1� OR CHOOSE NO. ";���TM$:�TM$��(13)�AN$�""� 210���TM$��(20)��"�    ":�190��TM$�"�"��300K






























































































































































































































































	� * 8 *<� 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240��15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240� � 31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0�%� * 5 **� 0,0,0,0,0,0,15,255K






























































































































































































































































	� 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0L�� 0,62,0,0,62,0,0,0,0,0,0,0X�� * 1 *��� 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0��� 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,K






























































































































































































































































	� 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0}�� 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224���7,255,240,7,255,240,7,255,224,0,0,0,0,0,0��� * P *
�� 0,0,0,0,0,0,15,255,128,15,255,224,15,255,240,15K






























































































































































































































































	                            ":�:�`�
� 64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,AUTO-GEN,MOXEYS PORCH��
� FILE LOCK V0222,FASTNEW,INVECTIVE,DRAGON TYPE,DRAGON TYPE2�� S$E FILE ADDR,AHOY DOCK,GO-LISTER,SUPERHERO,PIG,SPRITES,DICE SIMULATORK






























































































































































































































































	:TA�10:B�.:�150$��TM$��(13)�AN$��" "� 225?�AN$�AN$�TM$:�AN$;"_";w�T��(V�39):�V�39,�(V�40):�V�40,�(V�41):�V�41,�(V�42)���V�42,�(V�43):�V�43,�(V�44):�V�44,�(V�45)���V�45,�(V�46):�V�46,T:�D�1�30:����200��AN��(AN$):�AN�1�AN�22��"�     "K






























































































































































































































































�,240,15,255,240,15,255,240,15,255,240,15,128,0,15d4� 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128�>� 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0� 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0�K






























































































































































































































































	1,255�� 192,0,0,0,0,0,0�� * 9 *\�� 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129��� 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128�� 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0�K






























































































































































































































































	,255,240,15,129,248I�� 15,128,248,15,129,248,15,255,240,15,255,240,15,255,224,15,255,128��� 15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,0,0,0,0,0,0��� * T *��� 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16,�K






























































































































































































































































	� DICE ANALYZER,FISH MATHW� * S *\X� 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248�b� 15,192,0,7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248�l� 0,1,248,7,227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0�q� * E *5v


&~� X � 49152 � 49488 :� Y:� X,Y:�H��"�":�53280,0:�53281,6:�646,1q��"     64 BUG REPELLANT INSTALLED":���� 32, 161, 192, 165, 43, 133, 251, 165, 44, 133��� 252, 160, 0, 132, 254, 32, 37, 193, 234, 177
	�� 251, 208, 3, 76, 138, 192, 230,

 ANOTHER FILE (Y/N)" @�A$:�A$�""�64/B�A$��"Y"��=D�A$�"Y"�6_F� 76,96,3,162,1,32,198,255,32H� 228,255,160,0,145,251,230�J� 251,208,8,230,252,165,252�L� 201,208,240,6,165,144,41,64�N� 240,231,76,204,255,162,1,32P� 201,255,162,54


'L$�"":�H�53280,6:�53265,�(53265)�239r
�I�1�20:�A$:�:X�60:Y�57:CL�1:SC�53281��I�12288�12350:�SP:�I,SP:���I�12352�12414:�SP:�I,SP:���I�12416�12478:�SP:�I,SP:���I�12480�12542:�SP:�I,SP:�
	�I�12544�12��� I�22 � VZ:VV(I)�X:X�X�12:��� ** INITIAL SPRITE POSITIONING'�HP�160:VP�0U�� VT(0),VV(VP):� HT(0),HH(HP):� HR,HB(HP)w�� VT(1),VV(VP):� HT(1),HH(HP)��� ** TELL VIC-2 WHERE TO FIND SPRITE SHAPES��� LT(0),ST(0):� LT(1),ST(1)���N  0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32X
�� 204, 255, 169, 4, 76, 195, 255, 147, 83, 67�
�� 82, 69, 69, 78, 32, 79, 82, 32, 80, 82�
�� 73, 78, 84, 69, 82, 32, 63, 32, 0, 76�
�� 44, 193, 234, 177, 251, 201, 32, 240, 6, 138�� 113, 251,
....................."S� "........................"0T� "........................"QU� "........................"W��z��     *** SPRITE POSITIONS ***��� ** POSSIBLE POSITIONS DIM'ED��VZ�32:HZ�362:� HH(HZ),VV(VZ),HB(HZ)��� ** ASSIGN 

�� 96, 32, 205, 189, 169, 13, 32, 210, 255, 32X
�� 204, 255, 169, 4, 76, 195, 255, 147, 83, 67�
�� 82, 69, 69, 78, 32, 79, 82, 32, 80, 82�
�� 73, 78, 84, 69, 82, 32, 63, 32, 0, 76�
�� 44, 193, 234, 177, 251, 201, 32, 240, 6, 138�� 113, 251,
:�:�"END OF ML AREA":�"L�54276,17:�54276,16:�B��15,8,15:�15,A,A$:�15:�A$:�[�� GET FOUR DIGIT HEXj��:�B$;:�T$����(T$)��4��1020:�2010���A�1�4:A$��(T$,A,1):�2060:�T(A)�16��1020:�2010��:B�(T(1)�4096)�(T(2)�256)�(T(3)�16)�T(4):�
�A$�
4, 2303�� 251, 208, 2, 230, 252, 76, 11, 192, 169, 153e�� 160, 192, 32, 30, 171, 166, 63, 165, 64, 76��� 231, 192, 96, 76, 73, 78, 69, 83, 58, 32��� 0, 169, 247, 160, 192, 32, 30, 171, 169, 3��� 133, 254, 32, 228, 255, 201, 83, 240, 6, 201
��A�1:�3070
��%�T��(AC�A):�T�9�A$��(T�55):�30904A$��(T�48)I�A$;:AC�AC�A�T:�a�A$�"**SAVE**":�4200w��1,T,1,A$:�680:�1���ST�0�����1060:�T�8��1200���4000�A$�"**LOAD**":�4200�6�1,T,0,A$:�690:�1�@�ST�64�110�J�1070:�T
 251, 208, 2:	�� 230, 252, 76, 43, 192, 76, 73, 78, 69, 32j	�� 35, 32, 0, 169, 35, 160, 192, 32, 30, 171�	�� 160, 0, 177, 251, 170, 230, 251, 208, 2, 230�	�� 252, 177, 251, 32, 205, 189, 169, 58, 32, 210
�� 255, 169, 0, 133, 253, 230, 254, 32,�CAN AT ADDRESS":�2010:AD�Ba�2515:�B�0�4700$b�:�4740Zf�B�0�7:AC��(AD�B):�3030:�AD�B�EN�AD�SR:�1080:�110gk�" ";:�Bup�:AD�AD�8�z�B$:�B$��(136)�110���3010:�": ";:�4710"**LOAD**":�4200�6�1,T,0,A$:�690:�1�@�ST�64�110�J�1070:�T

    "Z$;" BYTES OF MEM."!
.Z��(Z$)H
0��17)"END ADDR.(DEC)"Z�W:D�W�Z:�54\
2��26)"(HEX) "H$d
4�60�
6H$�"":M�4096:N�3:�D�256�M�16:N�1�
8�H�0�N:C��(D�M):D�D�C�M:M�M�16:C�C�48:�C�57�C�C�7�
:H$�H$��(C):�:��
<�1:�15>�"DO YOU WISH TO CHECK�,134,1,160,0%R� 177,251,32,210,255,230,251IT� 208,2,230,252,165,251,197,253kV� 208,239,165,252,197,254,208�X� 233,162,55,134,1,76,204,255:C��(D�M):D�D�C�M:M�M�16:C�C�48:�C�57�C�C�7�
:H$�H$��(C):�:��
<�1:�15>�"DO YOU WISH TO CHECK	15:�V�12,240&
F�V�16,128:�V�14,5:�V�15,YF
d�"�":� SC,1:�V�21,255:TA�10]
n�53265,�(53265)�16�
���(L$,5)"   * * *   D I R E C T O R Y   * * *    ":��
�A�A�1:B�B�1:�PR$:�A�9�TA�9�
���(L$,B�7)�TA)""A"-"PR$�
�� B�10 � 175�
�� 150�� A��2
 HORIZONTAL VALUES�X�0:B�0:� I�0 � HZ:HH(I)�X:HB(I)�B/�X�X�1:� X�255 � X�X�256:B�35��U�� ** ASSIGN VERTICAL VALUES��X�202:� I�0 � 9:VV(I)�X:X�X�1:�:� I�10 � 14:VV(I)�X:X�X�2:���:� I�15 � 18:VV(I)�X:X�X�3:�:� I�19 � 21:VV(I)�X:X�X�6:��
 69, 254, 170, 138, 76, 88, 192, 0D�� 0, 0, 0, 230, 251, 208, 2, 230, 252, 96u�� 170, 177, 251, 201, 34, 208, 6, 165, 2, 73��� 255, 133, 2, 165, 2, 208, 218, 177, 251, 201��� 32, 208, 212, 198, 254, 76, 29, 193, 0, 169��� 13, 76, 210, 255,
	"@"�A$�"G"�T(A)��(A$)�55:�-�A$�"/"�A$�":"�T(A)��(A$)�48:�; T(A)�16:�N�	� ADRESS CHECK^�	�AD�EN�1030r�	�B�SR�B�EN�1040��	�B�256�(B�40960�B�49152)�B�53247�1050��	���� ADDRESS TO HEX��AC�AD:A�4096:�3070��A�256:�3070��A�16:�3070
+�� 80, 208, 245, 230, 254, 32, 210, 255, 169, 4_�� 166, 254, 160, 255, 32, 186, 255, 169, 0, 133��� 63, 133, 64, 133, 2, 32, 189, 255, 32, 192��� 255, 166, 254, 32, 201, 255, 76, 73, 193, 96��� 32, 210, 255, 173, 141, 2, 41, 1, 208, 249&
�8��1200�T�4100h�" ":��14)A$*r�:A$�"":�"FILENAME";A$:w�A$�""�4210S|�:�"TAPE OR DISK?":�y��B$:T�1:�B$�"D"�T�8:A$�"@0:"�A$:����B$��"T"�4230�����B$�"CONTINUE FROM ADDRESS":�2010:AD�B���2515:�B�0�4500���:�110\B$�"BEGIN S
 37, 1937
�� 234, 165, 253, 160, 0, 76, 13, 193, 133, 253k
�� 177, 251, 208, 237, 165, 253, 41, 240, 74, 74�
�� 74, 74, 24, 105, 65, 32, 210, 255, 165, 253�
�� 41, 15, 24, 105, 65, 32, 210, 255, 169, 13�� 32, 220, 192, 230, 63, 208, 2, 230, 6

 
�    *** BASIC SPRITES ***c� A SHIP AND A ROCKET DEMONSTRATE SPRITE CREATION AND MOVEMENT�	�      *** SET-UP SUBROUTINES ***�
� 600:� (VIDEO MEMORY)�� 700:� (BACKGROUND)�� 800:� (SPRITE SHAPES)�
� 900:� (SPRITE POSITIONS)	�UBLE WIDTH, ROCKET IS NORMAL WIDTH))�� ** SET VERTICAL SIZESP�� VE,2:� (ROCKET IS DOUBLE HEIGHT)h�� ** ENABLE SPRITES��� ES,BS(0) � BS(1):� (SPRITES 0 AND 1)������     *** SET UP OCEAN ***��R$��(18):RX$��(146):B$�" "��FD$��(162)��ES|BS(0)�1:� I�1 � 7:BS(I)�2�BS(I�1):�8}� I�0 � 7:BC(I)�255�BS(I):�\~�     *** INITIALIZE VALUES ***v� ** FOREGROUND COLOR��� 53281,6:� "�";:� (BLUE)��� ** BACKGROUND COLOR��� 53281,14:� (LIGHT BLUE)��� ** BORDER COLOR��� 53
  *** SPRITE SHAPES ***I� ** NUMBER OF SPRITE SHAPES (-1);NUMBER OF LINES PER SPRITE SHAPE (-1)R NS�1v!� ** LOCATE SPRITE SHAPE MEMORY�"ST(0)�13:ST(1)�14�#� ** LOOPS�$� I�0 � NS:� J�0 � 20:� SS$:� K�0 � 2:X�0:Y�VB�ST(I)�64�J�3�K%� DOUBLE HEIGHT)
nVE�53271Eo� ** HORIZONTAL EXPANSION REGISTER (1=DOUBLE WIDTH)RpHE�53277�q� ** SPRITE PRIORITY REGISTER (1=SPRITE IS IN FRONT OF FOREGROUND)�rPR�53275�s� ** MULTICOLOR ENABLE REGISTER (1=MULTI-COLOR ENABLED)�tEM�53276...........",� ".........*..**.........."0-� ".........*..**.........."Q.� "........**..**.........."r/� "........**.***.........."�0� ".........*****.........."�1� ".......*********........"�2� "************************"�3� "***    *** REGISTER ADDRESSES ***9
a� ** SPRITE SHAPE LOCATION TABLEd
bLT(0)�2040:� I�1 � 7:LT(I)�LT(I�1)�1:��
c� ** SPRITE COLOR TABLE�
dCT(0)�53287:� I�1 � 7:CT(I)�CT(I�1)�1:��
e� ** SPRITE HORIZONTAL POSITION TABLE (LOW BYTES)fHT(0)�53248:�()�I1$:CM$(J)�CM$(J�1):CM$(J�1)�C1$:�00�5�$��5�$F�.:�J�1�C�1�5�$�AN$(J)��AN$(J�1)�9480
6�$�100006%�:�F�1�9450 6%�16%F�.:�J�1�C�1L6&%�MN$(J)��MN$(J�1)�9540[60%�SUSB10000k6:%�:�F�1�9500q6D%��6N%F�.:�I�1�C�1�6X%�ID$(J)��ID$(J�1)�9580�6b%H(HP):� HR,HB(HP)&J
HP�HP�1:� HP�HZ � HP�08Y
� Z��41 � 320f^
EG�0:DL�0:DT�1:DS�5:RT�0:RC�0:� 930:� 100�q
� ** PUT VIDEO MEMORY BACK TO FIRST BLOCK, AND SCREEN MEMORY TO 1024�r
� 56578,�(56578)�3:� 56576,(�(56576)� 252)� 3�s
� 53272,20:� 648,4�;� "........................"<� "........................"@=� "........................"a>� "........................"{?� ** 2ND SPRITE SHAPE�@� ".....................*.."�A� ".....................*.."�B� "....................*** 100!	b�      *** ACTION LOOP ***<	dVP�VP�1:� VP�VZ � VP�0W	nHP�HP�1:� HP�0 � HP�HZj	x� VT(1),VV(VP)�	�� HT(0),HH(HP):� HR,HB(HP):� HT(1),HH(HP)�	�WV�WV�1:� WV�1 � WV�8�	�� DD$�(ST$,WV,40)"";�	�� 100�	��     *** WAIT FOR RESPONSE ***(185)��(175)��(228)�FU$�B$��(228)��(175)��(185)E�S$�R$:� I�1 � 40:S$�S$�B$:�:S$�S$�RX$q�ST$�FU$�FD$�FU$�FD$�FU$�FD$:ST$�ST$�ST$��DD$�""��WV�8��� "�"DD$�(ST$,WV,40)S$S$S$�(S$,40)""RX$;��� 2023,160����   
280,0:� (BLACK)C�� ** SPRITE COLORS (DEFAULTS: WHI,RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY)��� CT(0),0:� CT(1),2:� (THE SHIP IS BLACK, THE ROCKET RED)��� ** SET PRIORITY��� PR,255:� (ALL BEHIND)��� ** SET HORIZONTAL SIZES
�� HE,1:� (SHIP IS DO** CONVERT STRINGS TO SHAPE BYTES (USE BS(0-7) TO SET BITS)\&� L�1 � 8:M�L�8�K:M��(�(SS$,M,1)):� M�42 � X�X � BS(8�L)n'�:� Y,X:�:�:��)� SPRITE SHAPE DATA, 21 LINES  PER SHAPE: *='ON'  .='OFF'�*� ".........*.............."�+� ".........*...u� ** SPRITE MULTICOLOR COLOR REGISTERSXvMR�53285:� ('01' REGISTER: ADD 1 TO MR FOR '11' REGISTER)�w� ** SPRITE-SPRITE COLLISION REGISTER�xCS�53278�y� ** SPRITE-FOREGROUND COLLISION REGISTER�zCF�53279�{� ** SET-BIT AND CLEAR-BIT VALU	*********************"4� "..********************.."85� "...******************..."Y6� "...******************..."z7� "...*******************.."�8� "....******************.."�9� ".....*****************.."�:� "........................" I�1 � 7:HT(I)�HT(I�1)�2:�6g� ** SPRITE VERTICAL POSITION TABLEbhVT(0)�53249:� I�1 � 7:VT(I)�VT(I�1)�2:��i� ** SPRITE HORIZONTAL HIGH-BIT REGISTER�jHR�53264�k� ** SPRITE ENABLE REGISTER�lES�53269m� ** VERTICAL EXPANSION REGISTER (1=
..........."K� "........................"(L� "........................"IM� "........................"jN� "........................"�O� "........................"�P� "........................"�Q� "........................"�R� ".../{
� ** REENABLE SHIFT/COMMODORE AND RUN-STOP/RESTOREN|
� 657,0:� 792,71:� 808,237T�
�tV�    *** ARRANGE MEMORY ***�W� USE FIRST VIDEO BLOCK (0 TO 16383) SO NOTHING FANCY HAS TO BE DONE.�XVB�0�Y� ** SCREEN MEMORY STAYS WHERE IT IS
`�."�C� "....................***." D� "....................***."AE� "....................***."bF� "....................***."�G� "....................***."�H� "....................*.*."�I� "....................*.*."�J� ".............
(
�"
*
�     *** ENDING ROUTINES ***_
,
� "�FINAL SCORE:  "RT�100�VP�10:�:�:VP�15:� VT(0),VV(VP)�
6
� "TO PLAY AGAIN, PRESS P":� "TO QUIT, PRESS Q":HP�79�
;
HP�79:� HR,HB(HP):� HT(0),HH(HP):XP�1:� LT(0),ST(XP)�
@
Z��(203):� Z�62 � 370E
� HT(0),H
OR]":�"�"�"�A$:�10:�5300#�"�":��12);"ENTER ";:�"";:�"[MAGAZINE]":�"�")#(�M$:�10:�5300X#2�"�":��13);"ENTER ";:�"";:�"[ISSUE]":�"�"j#<�I$:�10:�5300�#��"�":�" #";�10);"ONE MOMENT SEARCHING":��20��(Z$)�2);Z$�#��I�1�C�#��DE$�"S"��(S$,�(S$OR NOTES  :]�":�"";CM$(I):�
.��FA�1��:�"�";�8);"PRESS ANY KEY TO CONTINUE".��FA�1��DE$:�DE$�""�7070,.��DE$�"/"��=.��FA�1�FA�.:�t.��FL�1��"�";�5);"DELETE THIS RECORD [Y]� OR [N]�"�.��FL�1��DE$:�DE$�""�7100�.��FL�1�DE$�"Y"�7180�.��FL�1�+��DE�6��"�":��5);": COMMENTS OR NOTES :":�:�"";,��DE�6��CM$(I):�:�"ENTER NEW VALUE":�:�CM$(I):,���(CM$(I))�70��60:�,�6280L,��CM$(I)�"/"��[,��"�":�6010�,W�====LIST + DELETE ROUTINE =======�,X�"�":�10:�"�":�I�1�C:�:��,b��9);"[:SUBJECT O
�/�"�":�:K2�.:��/SU$(I)�"DELETE":�5,8,5,"@0:"�Z$�",S,W":�"�""0��4);"ONE MOMENT DELETING RECORD #";I:�I�1�C?0 �SU$(I)�"DELETE"�C�C�1:�u0*�5,SU$(I)P$TA$(I)P$AN$(I)P$MN$(I)P$ID$(I)P$CM$(I)�04�:I�C�1:SU$(I)�"EOF":TA$(I)�"TITLE":AN$(I)�"AUTHOR":�TA$(I)�)$��(TA$(I))�39��50:�:�6160�))�TA$(I)�"/"��%*.�DE�3��"�":��5);": AUTHOR'S NAME :�":�:�"";V*8�DE�3��AN$(I):�:�"ENTER NEW VALUE":�:�AN$(I)t*B��(AN$(I))�39��50:�:�6190�*G�AN$(I)�"/"���*L�DE�4��"�":��5);": NAME OF MAGAZIZNE :�":�:�"INITIALIZE FILE======
2(#�"�":��5);"THIS FILE '";Z$;"' HAS NOT BEEN INITIALIZED ":�5<22#�"OR YOU DO NOT HAVE THE CORRECT DISK IN  THE DRIVE !"e2<#�:��8);"[C]�ONTINUE -/- [R]�ETURN"{2F#�DE$:�DE$�""�9030�2K#�DE$�"/"�K�1:��2P#�DE$�"R"�K�1:��2Z#�DE$"[5. ISSUE #/PAGE/DATE  ]�":�"";ID$(I):�"(���7);"�";"[6. COMMENT OR NOTE    ]�":�"";CM$(I):�N(���7);"�";"[7. WRITE TO DISK      ]�":�r(���7);"===>CHANGE WHICH LINE<=="�(��DE$:�DE$�""�6090�(�DE��(DE$):�DE$�"/"���(��DE�1�DE�7�6090�(��DE�#�=====DELETE THE ENTIRE FILE =====�3�#�"�":�I�1�10:�:�:��11);"!! ARE YOU SURE !!"4�#�:��15);"[Y]� OR [N]�".4$�DE$:�DE$�""�9220=4	$�DE$�"/"��Y4$�DE$��"Y"�DE$��"N"�9220h4$�DE$�"N"���4"$�:��10);"ONE MOMENT DELETING":�:��20��(Z$)�2);Z$�4,$�5,8RD NOT FOUND":��%@��10)"[A]�BORT OR [R]�ETRY
&J�DE$:�DE$�""�5450!&T�DE$�"/"�DE$�"A"��;&^�DE$�"R"�DE$�"":�5000W&h�DE$��"A"�DE$��"R"�5450�&|�:��13);"SELECT RECORD":�"";:�RN:�RN�C�5500�&��"�":�"�":I�RN:FA�1:�7010�&o�====MODIFY RECORD=====�TA$(J�1)�9430�5�$�10000�5�$�:�F�1�9400�5�$��5�$F�.:�J�1�C�1�5�$�AN$(J)��AN$(J�1)�9480
6�$�100006%�:�F�1�9450 6%�16%F�.:�J�1�C�1L6&%�MN$(J)��MN$(J�1)�9540[60%�SUSB10000k6:%�:�F�1�9500q6D%��6N%F�.:�I�1�C�1�6X%�ID$(J)��ID$(J�1)�9580�6b%))��(SU$(I),�(S$))��I;SU$(I):K�K�1#$��DE$�"T"��(T$,�(T$))��(TA$(I),�(T$))��I;TA$(I):K�K�1\$��DE$�"I"��(I$,�(I$))��(ID$(I),�(I$))��I;ID$(I):K�K�1�$��DE$�"M"��(M$,�(M$))��(MN$(I),�(M$))��I;MN$(I):K�K�1�$��DE$�"A"��(A$,�(A$))��(AN$(I),�(A$))��I;AN$(�"�":�I:��.��F4�1��"�";�5);"MODIFY THIS RECORD [Y]� OR [N]�":�7140&/��"�";�7);"CONTINUE PAGING [Y]� OR [N]�"</��DE$:�DE$�""�7140K/��DE$�"/"��g/��DE$��"Y"�DE$��"N"�7140�/��F4�1�DE$�"N"��"�":�:��/��DE$�"N"���/��F4�1�DE$�"Y"�F4�.:�"�":�
F ARTICLE:]�":�"";SU$(I):�-l��9);"�[:TITLE OF ARTICLE  :]�":�"";TA$(I):�7-v��9);"�[:AUTHOR'S NAME     :]�":�"";AN$(I):�j-���9);"�[:NAME OF MAGAZINE  :]�":�"";MN$(I):��-���9);"�[:ISSUE #/PAGE/DATE :]�":�"";ID$(I):��-���9);"�[:COMMENT MN$(I)�"MAG"�0>ID$(I)�"ISSUE":CM$(I)�"COMMENT"1H�5,SU$(I)P$TA$(I)P$AN$(I)P$MN$(I)P$ID$(I)P$CM$(I):�5:FL�.:�.1?�====END===_1@�"�":�X�1�12:�:�:��9);"IT'S BEEN A PLEASURE"�1J�I�1�15:�53281,I�1:� X�1�200:�X:�I:�53281,6�1T�"�":�"":��1'#�====== ";�*V�DE�4��MN$(I):�:�"ENTER NEW VALUE":�:�MN$(I)+`��(MN$(I))�39��50:�:�6220+e�MN$(I)�"/"��U+j�DE�5��"�":��5);": ISSUE / PAGE / DATE :�":�:�"";�+t�DE�5��ID$(I):�:�"ENTER NEW VALUE":�:�ID$(I)�+~��(ID$(I))�39��50:�:�6250�+��ID$(I)�"/"�����"R"�DE$��"C"�9030�2d#�5,8,5,"0:"�Z$�",S,W":�"�":��14);"INITIALIZING"3n#�:��20��(Z$)�2);Z$T3x#SU$(1)�"EOF":TA$(1)�"TITLE":AN$(1)�"AUTHOR":MN$(1)�"MAG":ID$(1)�"ISSUE"i3�#CM$(1)�"COMMENT"�3�#�5,SU$(1)P$TA$(1)P$AN$(1)P$MN$(1)P$ID$(1)P$CM$(1):�5:��3�7��80:��(��DE�1��"�":��5);": SUBJECT OF ARTICLE :�":�:�"";-)��DE�1��SU$(I):�:�"ENTER NEW VALUE":�:�SU$(I)K)��(SU$(I))�79��60:�:�6130])�SU$(I)�"/"���)�DE�2��"�":��5);": TITLE OF ARTICLE :�":�:�"";�)�DE�2��TA$(I):�:�"ENTER NEW VALUE":�:	,5,"@0:"�Z$�",S,W":�9080:��4S$�=====SORT PART2=====5T$�"�":��9);"ONE MOMENT NOW SORTING":�5^$��20��(Z$)�2);Z$95h$�K1�9350,9400,9450,9500,9550J5�$F�.:�J�1�C�1e5�$�SU$(J)��SU$(J�1)�9380p5�$�10000�5�$�:�F�1�9350�5�$��5�$F�.:�J�1�C�1�5�$�TA$(J)�=�&pF4�1:�7000
'z��7);"�";"[1. SUBJECT OF ARTICLE ]�":�"";SU$(I):�B'���7);"�";"[2. TITLE OF ARTICLE   ]�":�"";TA$(I):�z'���7);"�";"[3. AUTHOR'S NAME      ]�":�"";AN$(I):��'���7);"�";"[4. NAME OF MAGAZINE   ]�":�"";MN$(I):��'���7);"�";�10000�6l%�:�F�1�9550�6v%�7'S1$�SU$(J):T1$�TA$(J):A1$�AN$(J):M1$�MN$(J):I1$�ID$(J):C1$�CM$(J)F7'SU$(J)�SU$(J�1):SU$(J�1)�S1$:TA$(J)�TA$(J�1):TA$(J�1)�T1$:F�1�7$'AN$(J)�AN$(J�1):AN$(J�1)�A1$:MN$(J)�MN$(J�1):MN$(J�1)�M1$�7.'ID$(J)�ID$(J�1):ID$(J�1I):K�K�1
%��K�15�K�0:�:��4);"CORRECT RECORD FOUND [Y]� OR [N]�":Y�1(%�Y�1��RE$:�RE$�""�53807%	�RE$�"/"��W%�Y�1�RE$��"N"�RE$��"Y"�5380|%�RE$�"N"��"�":Y�.:RE$�"":�:�5440�%"�RE$�"Y"�Y�.:�5500�%'�C�I�K��1�K�15:�5370�%,�:��%6��11);"RECO
 FEB. 1985��**********************************1��=====ADD ROUTINE=====I��"�":�10:�"�":C�C�1X��K�1�K�0:�����8);": SUBJECT  OF  ARTICLE :�":�"";:�SU$(C)�
�SU$(C)�"/"�����(SU$(C))�79��60:�: �1020��"�":��8);": TITLE    OF  ARTIC
�UTHOR":�:��15);"[M]�AGAZINE":�!���15);"[I]�SSUE!��DE$:�DE$�""�5040(!��DE$�"/"��_!��DE$��"S"�DE$��"T"�DE$��"A"�DE$��"M"�DE$��"I"�5000p!��F1�1�F1�.:��!��DE$�"S"��"�":�I�1�4:�:�:�5090�!��DE$�"T"��"�":�I�1�4:�:�:�5110�!��DE$�"A"��"�":�I�
EDUCATIONAL":�SE$�"4"�Z$�"FUN & GAMES"-D�SE$�"5"�Z$�"GRAPHICS"HN�SE$�"6"�Z$�"HARDWARE"cX�SE$�"7"�Z$�"HOME USE"�b�SE$�"8"�Z$�"LANGUAGES-MLX"�l�SE$�"9"�Z$�"MISCELLANEOUS"�v�SE$�"10"�Z$�"MUSICAL"���SE$�"11"�Z$�"SIMULATIONS"���SE$

���3,Z$;" FILE":�3��I�1�C:�I:�3:�3,"==>RECORD NUMBER";I;" <==":�3K��3,XX$:�3,�3);"S U B J E C T":�3:�3,SU$(I):�3y��3,XX$:�3,�5);"T I T L E":�3:�3,TA$(I):�3���3,XX$:�3,�4);"A U T H O R":�3:�3,AN$(I):�3���3,XX$:�3,�2);"M A G A Z I N E":�3
ARDWARE         +K�
� + 7--HOME USE         +,+ 8--LANGUAGES-MLX    +,+ 9--MISCELLANEOUS    +��
� + 10-MUSICAL          +,+ 11-SIMULATIONS      +,+ 12-SOFTWARE         +��
� + 13-TUTORIAL         +,+ 14-UTILITIES        +,+                     +
�4200��3,4:XX$�"�=================�":�3,Z$;" RECORD NUMBER";I:�3B��3:�3,XX$:�3,�3);"S U B J E C T":�3p��3,SU$(I):�3:�3,XX$:�3,�5);"T I T L E":�3���3,TA$(I):�3:�3,XX$:�3,�4);"A U T H O R":�3��3,AN$(I):�3:�3,XX$:�3,�2);"M A G A Z I N E"�
� ��";:�"�� ��������������������������������ý�";LT
�" ��";:�I�1�40:�"�";:�"�";:�a^
�RE$:�RE$�""�350uh
�RE$��(140)�680��
�I�133�140:�RE$��(I)�520��
���
�"�":�53281,0:�53280,0:�"":��12);"INVALID RESPONSE"�
�:��7);"PLEASE PRESS FUN
=SORT PART1======��10:�"�":�I�1�5:�:�:��15);"SORT BY":�/�F1�1:�5010:�DE$�"/"��M��DE$�"S"�K1�1:�9300:�3070k��DE$�"T"�K1�2:�9300:�3070���DE$�"A"�K1�3:�9300:�3070���DE$�"M"�K1�4:�9300:�3070���DE$�"I"�K1�5:�9300:�3070��K1�.:�"�":��8)
�������������������������ó� ��";K��"�� ’";:��(159);:�" F1...ADD    ";:��(5);��"======";:��(159);:�" F2...SEARCH ";:��(31);:�
�"’ ��";:�"�� ’";:��(159);:�" F3...DELETE ";�
��(5);:�"======";:��(159);:�" F4...MODIFY ";
�
1100t�"�":��5);"->PRESS ANY KEY TO CONTINUE<-"&~�DE$:�DE$�""�1150B��"�":��20��(Z$)�2);Z$:�o���5);"[C]�ONTINUE OR [W]�RITE TO DISK"���DE$:�DE$�""�1180���DE$�"/"�����DE$��"C"�DE$��"W"�1180���DE$�"C"��"�":C�C�1:�1020���:��15);"
LE :�":�"";:�TA$(C)�TA$(C)�"/"�1020)��(TA$(C))�39��50:�:�1040b$�"�":��8);": AUTHOR'S        NAME :�":�"";:�AN$(C)w)�AN$(C)�"/"�1040�.��(AN$(C))�39��SUSB50:�:�1060�8�"�":��8);":�NAME     OF MAGAZINE :�":�"";:�MN$(C)�=�MN$(C)�"1�4:�:�:�5130�!��DE$�"M"��"�":�I�1�4:�:�:�5150"��DE$�"I"��"�":�I�1�4:�:�:�5170P"��"�":��13);"ENTER ";:�"";:�"[SUBJECT]":�"�"b"��S$:�10:�5300�"��"�":��13);"ENTER ";:�"";:�"[TITLE]":�"�"�"�T$:�10:�5300�"
�"�":��13);"ENTER ";:�"";:�"[AUTH
�"12"�Z$�"SOFTWARE"��SE$�"13"�Z$�"TUTORIAL"2��SE$�"14"�Z$�"UTILITIES"r�RE��(RE$):�(RE�132)�1000,2000,3000,4000,5000,6000,7000,8000��Z$�"XX":DE$�"":DE�.:K1�.:�100���**********************************���* WRITTEN BY GLENN LUMPKINS���*

:�3,MN$(I) ��3:�3,XX$:�3,�5);"I S S U E":�3:�3,ID$(I): ��3:�3,XX$:�3,�3);"C O M M E N T":�3:�3,CM$(I)H ��3:�:�3:�f ��=====SEARCH ROUTINE=====� ��"�":�I�1�5:�:�:��15);"SEARCH BY":�� ��:��15);"[S]�UBJECT":�:��15);"[T]�ITLE":�� ���15);"[A]
�
�+....PLEASE SELECT....+,+++++++++++++++++++++++J�"�":�:�53280,7:�53281,1:�"�":�I�1�20:�M$u��9);M$:�:�:�"";SE$:SE��(SE$)��SE$�"/"�440��SE�1�SE�14�520��SE$�"1"�Z$�"BUSINESS"�&�SE$�"2"�Z$�"DISK OPERATION"�0�SE$�"3"�Z$�"
�3:�3,MN$(I):�3:�3,XX$:�3,�5);"I S S U E"1�3:�3,ID$(I):�3:�3,XX$:�3,�3);"C O M M E N T"G"�3:�3,CM$(I):�3:�jg�=====PRINT ENTIRE RECORD=====�h�"�":��14);"NOW PRINTING":�:��20��(Z$)�2);Z$�rXX$�"�=================�":�3,4:�:�"RECORD NUMBER"
CTION KEY":RE$�"":�I�1�4000:��
�100a�
�+++++++++++++++++++++++,+...SELECTION MENU....+,+                     +��
� + 1--BUSINESS         +,+ 2--DISK OPERATION   +,+ 3--EDUCATIONAL      +��
� + 4--FUN AND GAMES    +,+ 5--GRAPHICS         +,+ 6--H
;"ONE MOMENT WRITING SORTED":���20��(Z$)�2);Z$�80:�6��=====PRINT RECORD/FILE=====c��"�":��8);"[E]�NTIRE OR [O]�NE RECORD"y��DE$:�DE$�""�4010���DE$�"/"�����DE$��"E"�DE$��"O"�4010���DE$�"O"�K2�1:�7000:�K2�.�����DE$�"E"��10:
�(31);:�"’ ��";:�"�� ’";:��(159);F"
�" F5...SORT   ";:��(5);:�"======";:},
��(159);:�" F6...LIST   ";:��(31);:�"’ ��";�6
�"�� ’";:��(159);:�" F7...PRINT  ";:��(5);:�@
�"======";:��(159);:�" F8...END    ";:��(31);:&J
�"�
WRITING TO":�:��20��(Z$)�2);Z$��80:�#��====DELETE ROUTINE=======2��"�":�:�:�d��"  DELETE [E]�NTIRE FILE OR [O]�NE RECORD"z��DE$:�DE$�""�2010���DE$�"/"�����DE$��"E"�DE$��"O"�2000���DE$�"E"��9200:���FL�1:�7000:FL�.:����====
	/"�1060B��(MN$(C))�39��50:�:�1080>L�"�":��8);":ISSUE # / PAGE / DATE :�":�"";:�ID$(C)SQ�ID$(C)�"/"�1080uV��(ID$(C))�39��SUSB50:�:�1100�`�"�":��8);": COMMENTS  OR   NOTES :�":�"";:�CM$(C)�j��(CM$(C))�79 ��60:�:�1120�o�CM$(C)�"/"�
= -20 POINTS AND SCRAMBLES THE"���16)"JOYSTICK"J���2)"�THE JOYSTICK IS SCRAMBLED EVERY 15"x���2)"SECONDS WHETHER YOU HIT BLUE OR NOT"����5)"THE JOYSTICK GOES IN PORT #2"����7)"THE GAME LASTS 90 SECONDS"����5)"PRESS THE FIRE BUTTON �� GREEN SOUND/�� 54296,15: � 54276,17: � 54277,15: � 54273,30A�� DL�1 � 25:�]�� 54296,0: � 54276,0: �c:r� END GAME��"�";�15);"SCORE ";SC�$� J�1 � 4: � 900: � 950: � 900�.� 1000:��8�"  PRESS JOYSTICK BUTTON TO 
;�"�       START & END FILE ADDRESS":� BY DAVE SMARTT�I�828�904:�A:�I,A:�f�15,8,15,"I0"��" FILE TO CHECK ";F$:��
Q�24:P�Q�256:S��(P�256)��251,P�S�256:�252,S��" ";F$��1,8,2,"0:"�F$��#1,A$,B$	D��(A$��(0))�256��(
� J�1 � � "UP ";� J�2 � � "DN ";+� J�4 � � "LT ";@ � J�8 � � "RT ";X*� J(J)�1 � � ">  ";q4� J(J)��1 � � "<  ";�>� J(J)�40 � � "V   ";�H� J(J)��40 � � "^  ";�R��\� 53280,2: � 53281,2: � DL� 1 � 80: ��f� 53280,12: � 53281,Z��(Z$)+
0��17)"END ADDR.(DEC)"Z�W:D�W�Z:�54?
2��26)"(HEX) "H$G
4�60l
6H$�"":M�4096:N�3:�D�256�M�16:N�1�
8�H�0�N:C��(D�M):D�D�C�M:M�M�16:C�C�48:�C�57�C�C�7�
:H$�H$��(C):�:��
<�1:�15�
>�"DO YOU WISH TO CHECK ANOTHER FILE (Y/N)"@�A$:W SCORE�400
&:)0� WIPE OUT PLAYER POSITION=:� DN$; �SP)" ";CD:cN� PRINT NEW PLAYER POSITIONkXP�T�b� J(JV)�1 � SP�SP�1�l� J(JV)��1 � SP�SP�1�v� J(JV)�40 � DN$�DN$ � ""��� J(JV)��40 � DN$��(DN$,�(DN$)�1)��� DN$; �SP)"|,210,255,230,251,T� 208,2,230,252,165,251,197,253NV� 208,239,165,252,197,254,208pX� 233,162,55,134,1,76,204,255:C��(D�M):D�D�C�M:M�M�16:C�C�48:�C�57�C�C�7�
:H$�H$��(C):�:��
<�1:�15�
>�"DO YOU WISH TO CHECK ANOTHER FILE (Y/N)"@�A$:065: TI$�"000001"<r
BM$�"": � 750: � 1000B|
:]�
� READ PORT 2 JOYSTICKm�
JV��(56320)�
JV�15�(JV�15)��
�BM$;"SCORE ";SC;��
VT��(TI$): � VT�15��(VT�15)� � 680��
� JV�0 � 400��
:��
� FIND CHARACTER MOVED TO
�

�"�"U
�SU$(500),TA$(500),AN$(500),MN$(500),ID$(500),CM$(500):P$�",":�15,8,15^�100�
�"�":��12);"ONE MOMENT READING":�:��20��(Z$)�2);Z$��5,8,5,"0:"�Z$�",S,R":�15,AX,BX$,CX,DX$:�AX��0��9000:���I�1�500:C�I	�5,SU$(I),TA$(I),AN$(I),I):�:I�C�1R
TSU$(I)�"EOF":TA$(I)�"TITLE":AN$(I)�"AUTHOR":MN$(I)�"MAG":ID$(I)�"ISSUE"�
VCM$(I)�"COMMENT":�5,SU$(I):�5,TA$(I):�5,AN$(I):�5,MN$(I)�
W�5,ID$(I):�5,CM$(I)�
X�5:��
d�"�":�53280,6:�53281,0:�I�1�40:�"��";:�:�"��";n�" ����������DTO PLAY"��JV��(56320)FR�JV�16 
� FR � 16 � 1270&� 1107j:Ct� INTROd~�"��":� 53280,0: � 53281,0:z���16)"INVECTIVE"����12)"BY GEORGE TREPAL"����11)"�GREEN = 10 POINTS"����10)"�YELLOW = -50 POINTS"���2)"�BLUE PLAY AGAIN"BJV��(56320)LFR�JV�16'V� FR � 16 � 10901`� 1107j:Ct� INTROd~�"��":� 53280,0: � 53281,0:z���16)"INVECTIVE"����12)"BY GEORGE TREPAL"����11)"�GREEN = 10 POINTS"����10)"�YELLOW = -50 POINTS"���2)"�BLUE B$��(0))	�15,E,E$,E1,E22	�E�0��:�,E$:�1:�15:�O	��15)"START ADDR.(DEC)"D\	 W�D: �54p	"��26)"(HEX) "H$�	$�"PLEASE WAIT..."�	&�831�	(F�P:P��(251)��(252)�256:T�P�	*Z$��("   "��(T�F),5)�	,�"�                  "Z$;" BYTES OF MEM."
.
12�p:z� SCRAMBLE SOUND>�� 54296,15: � 54276,17: � 54277,15: � 54273,60P�� DL�1 � 25:�l�� 54296,0: � 54276,0: �r�:��� YELLOW HIT��� 54296,15: � 54276,33: � 54277,15: � 54273,40��� DL�1 � 25:���� 54296,0: � 54276,0: ���:��A$�""�64B�A$��"Y"�� D�A$�"Y"�6BF� 76,96,3,162,1,32,198,255,32bH� 228,255,160,0,145,251,230�J� 251,208,8,230,252,165,252�L� 201,208,240,6,165,144,41,64�N� 240,231,76,204,255,162,1,32�P� 201,255,162,54,134,1,160,0R� 177,251,32�";: ���:�� SCRAMBLE JOYSTICK*�� VT�130 � 1050H�� J�1 � 4: RN��(�(1)�4)�1o�T�SA(J): SA(J)�SA(RN): SA(RN)�T: ���J(SA(1))�1: J(SA(2))��1: J(SA(3))�40: J(SA(4))��40��� 900��:��� POSITION HINTS��� BM$;�13)"�";��� J�1 � 8
  �=====’ ��";E��"�� ’=====   SEARCH -/- RECORD  �=====’ ��";���"�� ’=====   DELETE -/- RECORD  �=====’ ��";���"�� ’=====   MODIFY -/- RECORD  �=====’ ��";���"�� ’=====   SORT   -/- RECORD  �=====’ ��";
T�P�J(JV)
�
CH�(�(T))9
�
� CH�32 � � 570:  � 400: � BLANK SPACEv
�
� CH�105 � SC�SC�10: � 570: � 1000: � 400: � GREEN SCORE�
�
� BLUE JOYSTICK SCRAMBLE�
� CH�102 � � 570: � 680: SC�SC�20: �400�
� CH�90 � SC�SC�50: � 570: � 950: � 400: � YELLO	MN$(I),ID$(I),CM$(I)/	�SU$(I)�"EOF"��5:C�C�1:�5	(�g	2�:�"40 CHARACTERS MAXIMUM":�I�1�4000:�:�"�":��	<�:�"80 CHARACTER MAXIMUM":�I�1�4000:�:�"�":��	P�5,8,5,"@0:"�Z$�",S,W":�I�1�C�	R�5,SU$(I):�5,TA$(I):�5,AN$(I):�5,MN$(I):�5,ID$(I)
S�5,CM$(����������������������î� ";Yx� "��";:�"�� ’================================’ ��";���"�� ’===== ***AHOY DOCK FILE*** �=====’ ��";���"�� ’=====                      �=====’ ��";
��"�� ’=====   ADD    -/- RECORD
1
��"�� ’=====   LIST   -/- RECORD  �=====’ ��";l
��"�� ’=====   PRINT  -/- RECORD  �=====’ ��";�
��"�� ’=====                      �=====’ ��";�
��"�� ’================================’ ��";��"�� �������
� 6,169,1,133,34,165,34,201%�� 36,240,12,32,70,5,48,7G�� 230,34,32,200,6,240,238,173f�� 0,28,41,243,141,0,28,169��� 236,141,12,28,165,75,240,5��� 41,127,76,200,193,96,32,75��� 242,133,67,138,10,10,10,10��� 10,133,68,173,0,28,41,159169,5,133,254,165,186,32,1771�� 255,169,111,32,147,255,165,251S�� 164,252,141,152,3,140,153,3t�� 160,0,185,149,3,32,168,255��� 200,192,6,208,245,160,0,177��� 251,32,168,255,200,192,32,144��� 246,165,251,105,31,133,251,165�� 252,105,

� PROGRAM: INVECTIVE.� GEORGE TREPALD� 2650 ALTURAS RD\(� BARTOW, FL  33830b2:md� 1150�n�53280,12:�53281,12:�"�";�x� SET UP SCREEN��G$(1)�"��  �������   ������    ������   ������  ��	�G$(2)�"��  �    �   �    �    �   
� 15,8,15:�15,"M-E"�(0)�(5);:�15:� 15,8,15?�T�18:S�0:JB�176:� 400:� SEEKW�JB�128:� 400:� READ��15,"M-W"�(0)�(4)�(3)�(18)�(1)�(65)��JB�144:� 400:� WRITE�S�1:JB�128:� READ��15,"M-W"�(0)�(4)�(2)�(0)�(255)�JB�144:� 400:� WRITE� � �� 32,203,6,174,0,28,232,76�� 217,6,32,213,6,174,0,288�� 202,138,41,3,133,68,173,0V�� 28,41,252,5,68,141,0,28x�� 160,8,162,0,202,208,253,136��� 208,250,96,169,85,141,1,28��� 160,32,208,240,234,234,234,234�`�15:� 15,8,15:�15,A$,B$,C<RETURN>"��(30)3�TP$��(31)�"���������������������"��(30)q�PN$��(31)�"�"��(30)�" FAST NEW  V010585 "��(31)�"�"��(30)��TB$��(31)�"���������������������"��(30)��� �(147)�(13)"          "TP$��� "          "PN$��� "          "TB$:�
�� FG�254,184	,� 80,254,184,32,0,254,169,0*6� 133,48,169,3,133,49,165,67J@� 133,77,32,176,6,162,10,80lJ� 254,184,173,1,28,209,48,208�T� 14,200,202,208,242,24,165,48�^� 105,10,133,48,76,132,6,169�h� 244,133,75,96,32,176,6,160�r� 187,80,2
�� 198,0:� 204,01
�� A$:� 207,0:� A$�"" � � 210G
�� 204,1:� " �";:�M
+
:�
�
� DO A DISK JOB, THANKS "INSIDE COMMODORE DOS" BY DICK EMMERS, DATAMOST�
�
TY�0:�15,"M-W"�(8)�(0)�(2)�(T)�(S)�
�
�15,"M-W"�(1)�(0)�(1)�(JB)�
�
TY�TY�1
�
�15,"M-R"�55,141,1,28�� 141,3,28,32,243,6,169,01�� 133,50,169,255,141,1,28,162T�� 5,80,254,184,202,208,250,162u�� 10,164,50,80,254,184,185,0��� 3,141,1,28,200,202,208,243��� 162,9,80,254,184,169,85,141��� 1,28,202,208,245,162,5,169��� 255,� G$(4); G$(4); G$(2); G$(2); G$(1); G$(4); G$(4); G$(3);<
�:T
�� POKE GREEN POINTSu
�CM�54272:  � CM=COLOR MEMORY�
�� J�1 � 50�
�RN � �(�(1)�920)�1024�
�� �(RN)��32 � 240�

� RN,105: � RN�CM,13�

��

:"
� SET JOYSTICK VALUES J() AN	�� 5,68,141,0,28,169,238,141)� 12,28,160,0,132,77,165,57J
� 153,0,3,200,200,165,77,153g� 0,3,200,165,34,153,0,3�� 200,165,19,153,0,3,200,165�(� 18,153,0,3,200,169,15,153�2� 0,3,200,153,0,3,200,185�<� 250,2,89,251,2,89,252,2F0,133,252,165,253,105&� 32,133,253,165,254,105,0,133K� 254,32,174,255,198,255,208,180d� 96,77,45,87,0,0,32��� CODE DOWNLOADED INTO 1541 RAM��� 120,173,0,28,9,12,141,0��� 28,169,45,133,74,32,210,6��� 198,74,208,249,162,0,32,217�	 �   �    �  ��"D	�G$(3)�"�����������������������������������������"|	�G$(4)�"��    ��        �          �        �    ��"�	�� G$(3); G$(4); G$(2); G$(2); G$(1); G$(2); G$(2); G$(4);�	�� G$(4); G$(4); G$(2); G$(2); G$(1); G$(2); G$(2); G$(4);6
�
15*� 15,8,15:�15,"N0:"DN$4� 15@��:�:�"FORMAT COMPLETE, REMOVE DISK"k��:�"HIT "RT$" TO FORMAT ANOTHER DISK,"��� Q$" TO QUIT";:� 200��� A$��(13) � � 1000������ 169,16,133,255,169,0,133,251��� 169,37,133,252,169,0,133,253�� �$,D$�a� A$"�"B$"�"C$"�"D$:�15:�2H�15:� 15,8,15,"I0:":� "@0:FASTNEW.BAS",8:� 15:�a0� 15:� 15,8,15:�15,"M-R"�(18)�(0):�#15,I1$�1�15,"M-R"�(19)�(0):�#15,I2$�2� I1$I2$�4� 15:��� 5,24,16,197,44,0,28,48��� 246,173,1,28,184,160,0,96�1 � � 1035
�� "PLEASE WAIT..";'
� 20:�:FG�1?
� 820:DN$�"NAME ME"]
� 198,0:� "DISK NAME";DN$y
� 198,0:� "DISK ID";DI$�
$DI$��(DI$�"ZZ",2)�
.I1��(�(DI$,1)):I2��(�(DI$,1))�
8� 15,8,15:�15,"M-W"�(18)�(0)�(2)�(I1)�(I2);:�15�
B� 100�54,184,173,1,28,217|� 0,1,208,235,200,208,242,1627�� 252,80,254,184,173,1,28,217Y�� 0,4,208,219,200,202,208,241|�� 198,77,208,182,169,0,240,209��� 169,208,141,5,24,169,161,44��� 5,24,16,197,44,0,28,48��� 246,173,1,28,184,160,0,96�(1)�(0)�
�#15,E$:� E$�"" � E$��(0)+�
E��(E$)@�
� TY�500 � � 495T�
� E�127 � � 430g�
� E��1 � � 495m�
���
�:�"FATAL ERROR TRY AGAIN":���
:��� ***** MAIN CODE HERE *****��Q$��(5)�"Q"��(30)�� 53280,11:� 53281,0:� "";:RT$��(158)�"80,254,184,141,1,28,202 �� 208,247,162,187,80,254,184,189?�� 0,1,141,1,28,232,208,244a�� 160,0,80,254,184,177,48,141�� 1,28,200,208,245,169,85,162�� 8,80,254,184,141,1,28,202�� 208,247,165,50,24,105,10,133�"� 50,198,77,208,149,80,D SCRAMBLE ARRAY VALUES SA()=,
J(1)��40: J(2)�40: J(4)��1: J(8)�1d6
SA(1)�1: SA(2)�2: SA(3)�4: SA(4)�8j@
:�J
� SET UP PLAYER  SP=SPACES OVER  DN$=HOW FAR DOWN  P=POSITION�T
� BM$=BOTTOM OF SCREEN  TI$=TIMER�^
�"�"	h
SP�1: DN$�"": P�1� 89,253,2,153,249,2,230,77'P� 165,77,197,67,144,192,152,72HZ� 169,3,133,49,32,48,254,104ld� 168,136,32,229,253,32,245,253�n� 169,1,162,0,157,0,4,232�x� 208,250,169,4,133,49,32,233��� 245,133,58,32,143,247,169,206��� 141,12,28,169,2

� FILE LOCK V0222/85&
� 1000022� 198,0J4� A$:� A$�"" � � 52P7�fF� WAIT FOR RETURNzP� 198,0:� 204,0�U� A$:� 207,0:� A$���(13) � � 85�Z� 204,1:� " "�(157);:��d� WAIT FOR KEY�i� 198,0:� 204,0
	n� A$:� 207,0:� A$�"" � � � SF(I)�0 � � 190:� �(18)FL$(CF�I)�(146);:SF(I)�1'8CL�TP:�FHI�PG�38�ZN�19�J:� I�NF � �^IJ�J�1:� J�19 � J�19oL� 190:� " ";�MRW�RW�1:� RW�21 � RW�21:J�J�1�R� 190:� AR$;:��\J�J�1:� J�0 � J�0�]� 190:� " ";�aRW�RW�1:� RW�3 � RW�3�:� 900��� I
� 2:�15:� � SELECT FILES<%RW�1:CL�12:� 190:� YL$NC$;X&RW�24:CL�0:� 190:� CD$;x'RW�3:CL�18:� 190:� AR$;:J�0�*� 50�+� A$�CM$ � ��,� A$��(13) � �   820:� 810�-� A$�AR$ � � 10000:� EXIT AND START OVER
.� A$��(19
0:� A$"�"B$"�"C$"�"D$;:ER�1:��ER�0:��� NF�38 � �<�PG�PG�1:� PG�38�NF � PG�0H�� 400:�l'�:� FL$(76),S(76),EN(76),SF(76)�'BL$��(154):YL$��(158):RV$��(18):RO$��(146):AR$��(95)�'� 53280,11:� 53281,0:� �(147)BL$;'CD$�BL$�"  <CRSR> <H "�g� 800k� 15,8,15:� 2,8,2,"#"9l� I�0 � NF:� SF(I)�0 � � 660Cv� 690`{�#2,A$:� A$�"" � A$��(0)z�FT��(A$):FT�(FT � 64)��� 680��� 900��� I��� 2:�15:���� 695:�2,�(FT);���15,"B-P";2;0���15,"U2";2;0;18;S(I):����15,"U 190"G'�YL$ "SCRATCH LOCK UNLOCK PAGE BOOT QUIT ?  "BL$�(157);,H'� 100=L'� A$�"Q" � �gQ'� A$�"S" � � A$;:CM$�A$:� 500:� 10000�V'� A$�"L" � � A$;:CM$�A$:� 600:� 10000�['� A$�"U" � � A$;:CM$�A$:� 700:� 10000�`'� A$�"B" � � A$;:� 10000�e'� AN�0
�
� J�0 � 18:I�PG�38�ZN�19�J8
�
� SF(I)�0 � � FL$(I);:� 464X
�
� SF(I)�1 � � RV$FL$(I)RO$;n
�
RW�RW�1:� 190:� J�
�
RW�3:CL�21:� 190:ZN�1�
�
� J�0 � 18:I�PG�38�ZN�19�J�
�
� SF(I)�0 � � FL$(I);:� 474�
�
� SF(I)�1 � � RV$FL$(I)RO$;�
�
RW�RW�1:

�53280,0:�53281,3:�646,0X�"�       START & END FILE ADDRESS":� BY DAVE SMARTq�I�828�904:�A:�I,A:���15,8,15,"I0"��" FILE TO CHECK ";F$:��
Q�24:P�Q�256:S��(P�256)��251,P�S�256:�252,S��" ";F$��1,8,2,"0:"�F$	�#1,RIES/SEC
�15,"B-P";2;F�32�26
�#2,A$:� A$�"" � A$��(0)T
A��(A$):� �(A$)�0 � � 325v
L$�">":� (A � 64) �0 � L$�"�"�"
�#2,A$:�#2,A$�,
F$�L$�""�1
� I�0 �  15:�#2,A$:� A$�"" � A$��(0)�6
� �(A$)�160 � � 320�;
F$�F$�A$�@
� IB
FL$(NF)�
'
� -------------------------------?�          FAST NEWf�  DON LEWIS V010585 (REV V123184)�� -------------------------------�� 1000�:�� DOWNLOAD CODE INTO 1541��:� �(151)�� I�0 � 102:� A:� 820�I,A	#� (I�10)��(I�10)�110	s� 204,1:� " "�(157);:�.	�� BOX ROUTINE8	�� 190i	�� �(117);:� I�0 � W�2:� �(99);:� I:� �(105);�	�� J�0 � H�2:RW�RW�1:� 190�	�� �(103);:� I�0 � W�2:� " ";:� I:� �(104);�	�� J�	�RW�RW�1:� 190

�� �(106);:� I�0 � W�2:� �(99);:� I:� �(f� 190:� AR$;:�p� NF�PG�38�19  � �Cu� 190:� " ";:RW�3:CL�38:J�0:ZN�1:� 190:� AR$;:�Iz�}� 190:� " ";:RW�3:CL�18:J�0:ZN�0:� 190:� AR$;:����15,A$,B$,C$,D$��RW�23:CL�0:� 190:� "                                      ";�RW�23:CL�0:� 19
)  � � 190:� " ";:� 1000:� 805)/� A$��(157) � �  890:� 810H0� A$��(17)  � �  840:� 810g1� A$��(145) � �  860:� 810�2� A$��(29)  � �  880:� 810�3� 810�4TP�CL:CL�CL�17:I�PG�38�ZN�19�J�5�SF(I)�1��190:��(146)FL$(CF�I);:SF(I)�0:� 8247OME>"�YL$�" MOVES "�BL$�" <RTRN>"�YL$�" SELECTS �"�BL$Z'HD$��(18)�"          FILE LOCK V0222/85            "��(146)e$'� HD$;�.'�:� "INSERT DISK AND HIT "YL$"<RETURN>"BL$;�3'� 70:�:� "READING DIRECTORY":�8'� 200:PG�0:ZN�0:� 400�B'RW�24:CL�0:�1";2;0;18;S(I)��15,"B-P";2;EN(I)�32�2:�!��.�� UNLOCKC�RW�1:CL�12:� 190]�NC$�" UNLOCK  FILES "g�� 800��� 15,8,15:� 2,8,2,"#"��� I�0 � NF:� SF(I)�0 � � 660��� 690���#2,A$:� A$�"" � A$��(0)��FT��(A$):FT�(FT � 191)��� 680�$�"P" � � A$;:� 1000j'� 10050`� 15:� 15,8,15,"I0:":�15:a� "@0:FILE LOCK V0222",8XH� 15,8,15:�15,A$,B$,C$,D$xI�:� A$"�"B$"�"C$"�"D$:�15:�HIT "YL$"<RETURN>"BL$;�3'� 70:�:� "READING DIRECTORY":�8'� 200:PG�0:ZN�0:� 400�B'RW�24:CL�0:�� 190:� J�
ZN�0:��
� SCRATCH0�
NC$�"SCRATCH  FILES ":� 800H� 15,8,15i� I�0 � NF:� SF(I)�0 � � 540�
F$�FL$(I):� �(F$,1)�">" � � 540�F$��(F$,�(F$)�1)��15,"S0:"F$:� 900�� I�&� 15�W��X� LOCK�bNC$�"   LOCK  FILES
A$,B$#	D��(A$��(0))�256��(B$��(0))6	�15,E,E$,E1,E2O	�E�0��:�,E$:�1:�15:�l	��15)"START ADDR.(DEC)"Dy	 W�D: �54�	"��26)"(HEX) "H$�	$�"PLEASE WAIT..."�	&�831�	(F�P:P��(251)��(252)�256:T�P�	*Z$��("   "��(T�F),5)
,�"�              F$:S(NF)�SC:EN(NF)�F:NF�NF�1E
� F9J
� T��0 � TK�T:SC�S:� 230DO
�2:�15RT
NF�NF�1:�o�
� PRINT FORMATTED SCREEN��
� �(147);:� HD$:���
RW�2:CL�0:H�20:W�19:� 150:��
RW�2:CL�20:H�20:W�19:� 150��
� FILL SCREEN WITH FILES��
RW�3:CL�1:� 190:Z0 � � "�";	(� I/	2� I�0 � 511:� A:� I�9472,AO	7� (I�18)��(I�18)�0 � � "�";b	<� I:� �(30);:�h	c:�	d� PROMPT AND WAIT FOR RESPONSE�	i�:� "INSERT DISK AND HIT "RT$;�	n� 200:� A$���(13) � � 110�	x��	�:�	�� GET CHAR FROM KB, WITH PROMPT107);
�� BL$;:�(
�� SET CURSOR LOCATIOMH
�� 214,RW:� 211,CL:� 58640:�]
�� READ DIRECTORY}
�� 15,8,15,"I0:":� 2,8,2,"#"�
�TK�18:SC�1:NF�0�
��15,"U1";2;0;TK;SC�
��#2,A$:A$�A$��(0):T��(A$)�
��#2,A$:A$�A$��(0):S��(A$)
� F�0 � 7:� 8 ENT

�53280,12:�53281,11M�"��               FLANKSPEED               ";~
�"     MISTAKEPROOF ML ENTRY PROGRAM      "��"         CREATED BY G. F. WHEAT         "��"   COPR. 1984, ION INTERNATIONAL INC.   "��A�54272�54296:�A,0:�/	(
%�� X � 828 � 1023 :� Y:� X,Y:�:�W�� 169, 0, 133, 63, 133, 64, 165, 43, 133, 251��� 165, 44, 133, 252, 160, 0, 132, 254, 32, 228��� 3, 234, 177, 251, 208, 3, 76, 208, 3, 230��� 251, 208, 2, 230, 252, 169, 244, 160, 3, 32 	�� 30, 203, 16 253, 177, 251, 208, 226, 165, 253, 41R
�� 240, 74, 74, 74, 74, 24, 105, 65, 32, 210�
�� 255, 165, 253, 41, 15, 24, 105, 65, 32, 210�
�� 255, 169, 13, 32, 210, 255, 173, 141, 2, 41�
�� 1, 208, 249, 230, 63, 208, 2, 230, 64, 230�� 251, 208, 2,

��"�":�53280,6:�53281,10���15)"AUTO-GEN"I���13)"SEP   1, 1984"b���13)"DAVID A JONES"�� CREATES DISK FILE OF DATA STATEMENTS CONTAINING IMAGE OF MEMORY�:�FL�0        : � FIRST MEMORY LOCATION TO BE SAVED	$LL�0        : � LAST VALUE OF NUMBER CONVERTED FROM STRINGS
`ND�10       : � NUMBER OF DATA ITEMS PER LINE�
jNL�2049     : � POINTER TO START OF NEXT BASIC LINE�
tX�0         : � OUTER LOOP COUNTER�
~Y�0         : � INNER LOOP COUNTER�
�Z�0         : � DATA ITEM CO:     � MAIN PROGRAM�:6��:�"FIRST MEMORY LOCATION";NN$D�MM��(NN$)`� �(NN$,1)�"$" � � 1830j
FL�MM��:�"LAST MEMORY LOCATION";NN$�MM��(NN$)�(� �(NN$,1)�"$" � � 1830�2LL�MM�<�:�"STARTING LINE NUMBER";LN
F�:�"NUMBER OF DA��(20);:�140
,
� LAST LINE0
6
�" ":T�AD�(�(AD�256)�256)V
@
�B�0�A�1:T�T�A%(B):�T�255�T�T�255\
J
�u
T
�A%(A)��T��1010:�110�
^
�B�0�A�1:�AD�B,A%(B):��
h
�:�"YOU ARE FINISHED!":�4000�
�� BELL AND ERROR MESSAGES�
��:�"LINE ENTERED INCORRECTLY":�:NL�256)): HB��(NL�256)1��8,�(LB);�(HB);: � NEXT BASIC LINEY�LB�LN�256�(�(LN�256)): HB��(LN�256)���8,�(LB);�(HB);: � NEXT LINE NUMBER��� LN;: � SHOW USER WHAT'S HAPPENING���8,D$;: � DATA TOKEN�:�� Y�X � X�ND�1: � 0 TO 9 = 10 ITEMS�1�EN�310��" ��";0��A:T�AD�(�(AD�256)�256):�" "T��A�0�7:T�T�A%(A):�T�255�T�T�255Z��s��A%(8)��T��1010:�110���A�0�7:�AD�A,A%(A):�:AD�AD�8:�110���    GET HEX INPUT���A$:�A$�""�210���A$��(20)�270���A$��(133)�4000���A$��(134)��:��8,�(0);�(0);�� 8�� 1920$�� 156��:�"COMPLETE"<��B:]:     � HEX TO DECIMALc:r&MM�0: HH�0�0� X�2 � �(NN$)�:HH��(�(NN$,(X),1))�48�DMM�16�MM�HH�7�(HH�9)�N��X��b:�l:     � DISK I/0 ERROR�v:�54272,4:�54273,48:�54277,0:�54278,249:�54296,15H	F�A�680�699:�B:�A,B:�s	K�169,251,166,253,164,254,32,216,255,96�	L�169,0,166,251,164,252,32,213,255,96�	PB$�"STARTING ADDRESS IN HEX":�2010:AD�B:SR�B�	U�2520:�B�0�80
V�251,T(4)�T(3)�16:�252,T0, 0, 177, 251, 170, 230, 251, 208S	�� 2, 230, 252, 177, 251, 32, 205, 221, 169, 58�	�� 32, 210, 255, 169, 0, 133, 253, 230, 254, 32�	�� 228, 3, 234, 165, 253, 160, 0, 170, 177, 251�	�� 201, 32, 240, 6, 138, 113, 251, 69, 254, 170"
�� 138, 133,� 230, 252, 76, 74, 3, 169, 236H�� 160, 3, 32, 30, 203, 166, 63, 165, 64, 32|�� 205, 221, 169, 13, 32, 210, 255, 96, 230, 251��� 208, 2, 230, 252, 96, 0, 76, 73, 78, 69��� 83, 58, 32, 0, 76, 73, 78, 69, 32, 35��� 32, 0, 0, 0, 0, 08, 133,MEMORY LOCATION TO BE SAVEDH	.LN�1000     : � OUTPUT PROGRAM LINE NUMBERv	8LB�0        : � LOW BYTE OF 16 BIT NUMBER�	BHB�0        : � HIGH BYTE OF 16 BIT NUMBER�	LHH�0        : � TEMP STORE FOR HEXIDECIAML CONVERSION!
VMM�0        : � DECIMAL UNTER�C$�","      : � COMMAA�D$��(131): � BASIC TOKEN FOR "DATA"[�S$�" "      : � SPACE��FI$�""      : � OUTPUT FILE NAME��NN$�""      : � NUMBER STRING INPUT��X$�""       : � 4 CHARACTER STRING REPRESENTING 1 MEMORY LOCATION��:
�TA ITEMS PER LINE";ND(
P�:�"OUTPUT FILENAME";FI$.
Z:<
d� 15,8,15X
n� 8,8,8,"0:"�FI$�",P,W"c
x� 1920i
�:�
��8,�(1);�(8);: � PROGRAM LOAD LOCATION�
�:�
�:     � MAIN LOOP�
�:�
�� X�FL � LL � ND�
�NL�NL�2�2�1�4�ND�1
�LB�NL�256�(�(
�1100#��:�"INPUT A 4 DIGIT HEX VALUE!":�1100T�:�"ENDING IS LESS THAN STARTING!":B�0:�1100��:�"ADDRESS NOT WITHIN SPECIFIED RANGE!":B�0:�1100��:�"NOT ZERO PAGE OR ROM!":B�0:�1100�$�"?ERROR IN SAVE":�1100�.�"?ERROR IN LOAD":�11008�	X$��("    "��(�(Y)),3)":,� I�1 � 376�8,�(�(�(X$,I,1)));?@� IEJ:OTZ�Z�1c^� Z�ND � �8,C$;kh� Yqr:�|�8,�(0);: � END OF LINE TERMINATOR��LN�LN�10��Z�0��� 1920��� X��:��:     � ADD END OF PROGRAM TERMINATOR�4100��A$��(135)��" ":�45001��A$��(136)��" ":�4700W��A$�"@"�A$�"G"�T(B)��(A$)�55:�250}��A$�"/"�A$�":"�T(B)��(A$)�48:�250���1100:�210���A$"��";�
�125�
�A�0�280�
A��1:�B�1�290�
�140�
�B�0���(20);�(20);:A�A�1�
A�A�1
"
{��15,EN$,EM$,ET$,ES$: EN��(EN$) �� EN�0 � 19708��"DISK I/O ERROR ";N�� EN$,EM$,ET$,ES$_�� 8: � 15: �e��qr:�|�8,�(0);: � END OF LINE TERMINATOR��LN�LN�10��Z�0��� 1920��� X��:��:     � ADD END OF PROGRAM TERMINATOR(2)�T(1)�161
ZB$�"ENDING ADDRESS IN HEX":�2010:EN�BC
_�2510:�B�0�80j
`�254,T(2)�T(1)�16:B�T(4)�1�T(3)�16�
a�B�255�B�B�255:�254,�(254)�1�
b�253,B:��
d�  GET HEX LINE�
n�3010:�": ��";:�A�0�8�
x�B�0�1:�210�
}�B�A%(A)�T(1)�T(0)�16:�AD�A
A������������������@TPl��
�B
�O��������
��
��
��
��
SEPTEMBER���������85�2A�����
64 BUG REP�������
VIC BUG REP������FLANKSPEED�������F-SPEED OVER�����AUTO-GEN��������
�MOXEYS PORCH�����FILE LOCK V0222��	FASTNEW���������K






























































































































































































































































K






























































































































































































































































�INVECTIVE��������DRAGON TYPE������DRAGON TYPE2�����S&E FILE ADDR����AHOY DOCK�������1�GO-LISTER��������	SUPERHERO��������PIG�������������K






























































































































































































































































K






























































































































































































































































��SPRITES����������
DICE SIMULATOR���DICE ANALYZER����
FISH MATH�������
�MENU C-64�������

RESPONSE.O������
K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K






























































































































































































































































K

































































































































































































































































�4,4.
�4," �������������������������"S�4,"�                         �"x�4,"�                         �"�
�4,"�    Ϸ���������          �"��4,"�    �         � SAVE     �"��4,"�    �         �          �"	�4,"�    �              �          �"4
�4,"�    �         � CONTINUE �"Y
�4,"�    �         �          �"~
�4,"�    �         �          �"�
�4,"�    �         �          �"�
�4,"�    �         �          �"�
�4,"�    �         � SCAN     �"�4,"�   

�"�"
�52,48:�56,48:�E� * MOXEYS PORCH * BY BOB BLACKMER��MV(136):HS�0:A�2:B�39:C�41:MP$�"MOXEYS PORCH":PS�53270�(V�53248:S�54272:M�56320:�V�21,65:�53280,6:�53281,11:U�1401�2�L�S�S�24:�L,0:�L
	<�S�5,21:�S�1,20:�S�6,240:�S�4,17:�1
MOXIE      DOESN'T LIKE THE MARKS"E
���11)"ENZO'S POGO STICK IS MAKING"a
���11)"ON HIS PORCH."�
���3)"�TO PLAY USE JOYSTICK #2 AND MARK UP     ALL THE STEPS ON";�
��" MOXIE'S PORCH,":��3)"WHILE TRYING TO AVOID MOXIE'S PURSUIT"���3)"�IF SUC
��10)"�HIT ANY KEY TO BEGIN�":�K�1�99:�K:�250;"
�V�23,0:�V�29,0D,
SL�0a6
�"�"�7)"LEVEL (1-9)"@
�""�7)"1 IS THE HARDEST"�J
�LV$:�LV$�""�330�T
�LV$�"1"�LV$�"9"�330�^
LV��(LV$)�1�h
�"�":�53272,(�(53272)�240)�14
r
�53282,2:�53283,7:#%&%&%&%&$"�
��12)"#%&%&%&%&%&$"1��11)"#%&%&%&%&%&%&$"M��10)"#%&%&%&%&%&%&%&$"j��9)"#%&%&%&%&%&%&%&%&$"�&��8)"#%&%&%&%&%&%&%&%&%&$"�0��8)"'('('('('('('('('('(":�S�24,15�:�L�1�136 �2�D�S�4,17:�S�1,55:�S�4,16�NX2�X2�MV(L):Y2�Y:SC�SC�1:�S�4,129:�S�4,128 ��V�12,X2:�V�13,Y25�P�P�1:�P�15�P�13L�Q�Q�1:�Q�199�Q�198h��P�14��S�4,129:�S�4,128���JV�4�X1�X1�16:U�U�A:��(U)�32�U�U�A:X1�X1�16���JV�8�X1�X1�16:U�U�A:��(U)�32��(U)�36�U�U�A:X1�X1�16��JV�5�X1�X1�8:Y1�Y1�8:U
	�40+�"�":�53280,9:�53281,7:�646,9U� "        GO-LISTER INSTALLED...."]�:��
� *** "GO-LISTER" BY JOHN K.LUNDE ***�� ** TGT.PROGRAM MUST START AT NORMAL START-OF-BASIC ADDRESS (2049) **	� ** USES FILE#1 TO DEVICE#4:CLOSE MANU,6,169,1,69!
0��67,133,67,165,67,201;
6��1,240,18,177,251,201W
<��137,240,40,201,141,240r
B��36,201,167,240,32,201�
H��203,240,28,160,1,32�
N��83,192,76,35,192,192�
T��0,240,15,169,1,24�
Z��101,251,144,2,230,252�
`��133,251,136,76,83,192f��968���133,69,169,0,133,251-���169,8,133,252,169,13H���32,210,255,165,61,170c���165,62,32,205,189,169}���58,32,210,255,76,114����192,169,13,32,210,255����32,204,255,169,1,32����195,255,96,160,0,132����20,132,21,200,177,251
���201,32,240
 �          �"1	�4,"�    �         �          �"V	�4,"�    �         �          �"{	�4,"�    �         � LOAD     �"�	�4,"�    �         �          �"�	�4,"�    �         �          �"�	�4,"�    �         �          �"
�4,"�    �   � ̤���������          �"7�4,"�                         �"\ �4,"�       FLANKSPEED        �"�!�4,"�       ����������        �"�"�4," �������������������������"�(�4     �          �"�	�4,"�    �         �          �"
�4,"�    �   110.	F�"��DO YOU WANT INSTRUCTIONS? (Y/N)"@	P�I$:�I$�""�80P	Z�I$�"N"�300`	d�I$��"Y"�80x	n�"�"�11)"�"MP$""�	x�"�ENZO       JUST GOT A POGO STICK AND"�	���11)"JUMPED OVER TO HIS NEIGHBORS"�	���11)"MULTI-STEP FRONT PORCH."
��"�CESSFUL YOU ARE REWARDED WITH"F���3)"ANOTHER PORCH AND A FASTER MOXIE."|��V�23,65:�V�29,65:�2040,P:�2046,Q:�V�37,6:�V�38,5���V,60:�V�1,70���V�12,60:�V�13,110����10)"�HIT ANY KEY TO BEGIN":�K�1�99:�K�
�S$:�S$�""�280�
�S$��""�290'�53270,�(53270)�16/
|
X2�203:Y2�166:X1�157:Y1�102:U�1401@
�
�LV�1�1�LV�2L
�
LV�LV�1b
�
�""�12)"�"MP$k
�
�450�
�
JV��(M):FR�JV�16�
�
JV�15�(JV�15):��
�
�"�"�
�
��17)"#$"�
�
��16)"#%&$"�
�
��15)"#%&%&$"�
�
��14)"#%&%&%&$"�
�
��13)"2�MV(L�1)
X�G�LV�1��1bK�1:�4305l�2040,P:�K��LV�K�K�1:�620Av�2046,Q��� ***NOTE*** LINES 650-660 MUST BE ENTERED USING ABBREVIATIONS���V,X1:�V�1,Y1:��(U)�37��U,C:�U�1,C�1:SC�SC�1:�S�4,129:�S�4,128
��V,X1:�V�1,Y1:��(U)�39��U,43:�U�1,44	�U�C:��(U)�32�U�U�C:X1�X1�8:Y1�Y1�8P��JV�6�X1�X1�8:Y1�Y1�8:U�U�B:��(U)�32�U�U�B:X1�X1�8:Y1�Y1�8��� ***NOTE*** LINES 760-770 MUST BE ENTERED USING ABBREVIATIONS���JV�9�X1�X1�8:Y1�Y1�8:U�U�B:��(U)�32��(U)�36�U�U�B:X1�X1�8:Y1�Y1�8"�JV�10�X1�X1�ALLY IF EXECUTION IS HALTED **=	(�X�49152�49472:�Z:�X,Z:�:� 3V	��169,1,162,4,160,255o	��32,186,255,169,0,32�	��189,255,32,192,255,162�	��1,32,201,255,160,8�	��132,70,160,1,132,69�	��76,135,192,160,0,177�	$��251,201,0,240,65,201
*��34,208	,76,207,192,160,2%l��177,251,201,0,240,20@r��160,3,177,251,133,253]x��200,177,251,133,254,200v~��32,83,192,132,67,76����35,192,136,177,69,201����0,240,52,200,177,69����133,61,200,177,69,133����62,160,0,177,69,170����200,177,69,133,70,13
,249,201,160
���240,245,201,164,240,2418
���201,48,48,50,201,58P
���16,46,233,47,133,7j
���165,21,133,34,165,20�
���10,38,34,10,38,34�
���101,20,133,20,165,34�
��101,21,133,21,6,20�
��38,21,165,20,101,7�
��133,20,144,2,230,21��200,177,25
� << RR21-1 >>/
�"�":�53280,3:�53281,6J� -- DICE SIMULATOR --c�  RUPERT REPORT #21i��� "   RANDOMLY SIMULATE THE OUTCOME FOR         ROLLING THREE DICE..."�� OUTCOMES FOR ROLLING THREE DICE�� D�1�2000:�	� >>DETERMINE_TTL�11 � SXCS�SXCS�1'
n� �(19);N : � SXCSD
xPROB�100�SXCS�N : � PROBN
�N�N�1W
�� 60T #21i��� "   RANDOMLY SIMULATE THE OUTCOME FOR         ROLLING THREE DICE..."�� OUTCOMES FOR ROLLING THREE DICE�� D�1�2000:�	� >>DETERMINE

� << RR21-2 >>6
�"�":�53280,0:�53281,6:�646,1Q�"-- DICE ANALYZER --"j�  RUPERT REPORT #21p���"ENUMERATE ALL POSSIBLE"��"OUTCOMES FOR ROLLING THREE DICE"����">>CALCULATE THE PROBABILITY THAT"
	
�"  1) 3 ONES ARE ROLLCE WITH VALUE Z-
� TTL(N) = SUM OF DICE VALUES3
�b
� ROLL(216,3),CT(216,6),TTL(216),RNUM(216){
N�1 : M�1 : � �(147)�
(� A�1 � 6 : � B�1 � 6�
2� C�1 � 6�
<� A;B;C�
FROLL(N,1)�A:ROLL(N,2)�B:ROLL(N,3)�CPCT(N,A)�CT(N,A)�1 :CT(N,B)�CT(
'L$�"":�H�53280,6:�53265,�(53265)�239r
�I�1�20:�A$:�:X�60:Y�57:CL�1:SC�53281��I�12288�12350:�SP:�I,SP:���I�12352�12414:�SP:�I,SP:���I�12416�12478:�SP:�I,SP:���I�12480�12542:�SP:�I,SP:�
	�I�12544�1215:�V�12,240&
F�V�16,128:�V�14,5:�V�15,YF
d�"�":� SC,1:�V�21,255:TA�10]
n�53265,�(53265)�16�
���(L$,5)"   * * *   D I R E C T O R Y   * * *    ":��
�A�A�1:B�B�1:�PR$:�A�9�TA�9�
���(L$,B�7)�TA)""A"-"PR$�
�� B�10 � 175�
�� 150�� A��2:TA�10:B�.:�150$��TM$��(13)�AN$��" "� 225?�AN$�AN$�TM$:�AN$;"_";w�T��(V�39):�V�39,�(V�40):�V�40,�(V�41):�V�41,�(V�42)���V�42,�(V�43):�V�43,�(V�44):�V�44,�(V�45)���V�45,�(V�46):�V�46,T:�D�1�30:����200��AN��(AN$):�AN�1�AN�22��"�     "                            ":�:�`�
� 64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,AUTO-GEN,MOXEYS PORCH��
� FILE LOCK V0222,FASTNEW,INVECTIVE,DRAGON TYPE�� S&E FILE ADDR,AHOY DOCK,GO-LISTER,SUPERHERO,PIG,SPRITES,DICE SIMULATOR	� DICE ANALY,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0z�� 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224���7,255,240,7,255,240,7,255,224,0,0,0,0,0,0��� * P *��� 0,0,0,0,0,0,15,255,128,15,255,224,15,255,240,15,25�1,76,228,192��32,83,192,165,61,1974 ��20,208,19,165,62,197M&��21,208,13,169,32,32j,��210,255,165,253,170,165�2��254,32,205,189,160,0�8��177,251,201,44,240,145�>��76,35,192�195,255,96,160,0,132����20,132,21,200,177,251
���201,32,240 THE PROBABILITY THAT-		�   THE SUM IS ELEVENJ	
N�1 : R$��(18) :� RVS ONX	� �(147);s	� �15)R$;"<< # ROLLS "�	(� �15)R$;"<< # SUCCESS "�	2� �15)R$;"<< % PROBABILITY "�	<A��(�(0)�6)�1�	FB��(�(0)�6)�1�	PC��(�(0)�6)�1�	ZTTL�A�B�C
d� N,B)�1ZCT(N,C)�CT(N,C)�1'dTTL(N)�A�B�CCnN�N�1 : � C : � B : � A[x�"CALCULATING ... "k�� N�1 � 216��:� CT(N,1)�3 � T1�T1�1��:� CT(N,3)��1 � CT(N,6)��1 � T2�T2�1��:� CT(N,2)�0 � T3�T3�1��:� TTL(N)�11 � T4�T4�1:RNUM(M)�N:M�M�1�ED"@	�"  2) AT LEAST 1 THREE AND 1 SIX              ARE ROLLED"_	�"  3) NO TWOS ARE ROLLED"}	
�"  4) THE SUM IS ELEVEN"�	�"    PRESS ANY KEY";:� A$�	� >ON THE NTH ROLL (N = 1 TO 216):�	� ROLL(N,Y) = DIE Y'S VALUE
� CT(N,Z) = # DI5,240,15,129,248F�� 15,128,248,15,129,248,15,255,240,15,255,240,15,255,224,15,255,128��� 15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,0,0,0,0,0,0��� * T *��� 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16)�� 0606:�SP:�I,SP:�,	�I�12608�12670:�SP:�I,SP:�K	�I�12672�12734:�SP:�I,SP:�j	�I�12736�12798:�SP:�I,SP:��	#M�.:V�53248:�I�2040�2047:M�M�1:�I,191�M:��	(�I�39�46:CL�CL�1:�V�I,CL:��	2�I�0�6�2:X�X�22:�V�I,X:�:�I�1�13�2:�V�I,Y:�
<�V�8,195:�V�10,20 � �:A�0>�� �(L$,22)"            DOUBLE L SOFTWARE           "z�� �(L$,24)�7)"(C) ION INTERNATIONAL INC":�198,0:AN$�""��� �(L$,20)�8)"PRESS F1� OR CHOOSE NO. ";���TM$:�TM$��(13)�AN$�""� 210���TM$��(20)��"�    ":�190��TM$�"�"��300:�190"
�AN��(AN$):�:� CH�1 � AN:� PR$:� CHH
��V�21,0:� "�":� 53280,0:� 53281,0l
���(L$,15)�10)"�LOADING "PR$"�"�
�� "LOAD";�(34);PR$;�(34);",8"�
�� "RUN":� "���������"�

� 631,13:� 632,13:� 198,2:��
,
�LI�6�186
��(L$,LI)"        	ZER,FISH MATH,MENU C-64W� * S *YX� 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248�b� 15,192,0,7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248�l� 0,1,248,7,227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0�q� * E *2v� 0


� PROGRAM 15�"� LOADING MACHINE LANGUAGE"c�I�49152�49946:�A:�I,A:�:� CHECKSUM=98881�(�" LOADING DRAGON TYPE2"�2�"DRAGON TYPE2",8�d�32,110,193,169,205,133,128,169�e�4,133,129,169,11,141,39,208�f�141,40,208,141,41,208,169,1,208,141,0,208-
o�24,173,203,194,105,16,201,220O
p�176,9,141,203,194,32,132,193o
q�76,57,192,169,14,141,248,7�
r�169,0,141,16,208,169,164,141�
s�0,208,169,70,141,1,208,169�
t�0,141,39,208,169,5,141,33�
u�208,169,13,141,32,208,32,121v�1908,240 ~�201,173,0,208,201,28,144,194C�96,172,209,194,177,128,201,32e��144,27,56,237,208,194,240,11���238,25,195,32,197,193,162,1���76,252,192,169,32,145,128,238���209,194,162,0,96,24,105,64���76,226,192,169,4,141,204,194

��238,0
4,208,239��173,248,7,201,13,208,6,238<��248,7,238,248,7,206,248,7a��206,205,194,173,205,194,208,210���96,160,255,136,208,253,96,32���97,193,202,208,250,96,165,128���141,211,194,165,129,141,210,194���96,173,211,194,133,128,173,210,208,250,169��128,141,4,212,96,169,0,141<��0,212,169,2,141,32,208,169\��85,141,24,212,169,38,141,1}��212,169,65,141,6,212,169,45���141,5,212,169,33,141,4,212���162,45,32,97,193,202,208,250���169,32,141,4,212,169,5,141��32,208,96,11��141,39,208,141,40,208,141,413��208,169,8,141,25,195,169,125W��141,203,194,169,26,141,207,194y��169,25,141,206,194,169,0,141���209,194,162,255,32,103,193,206���25,195,173,25,195,208,243,169���1,141,21,208,32,38,193,169
��15,1141��206,194,169,11,141,207,194,32/��38,193,169,1,141,16,208,169P��27,141,207,194,32,38,193,32m��121,193,96,125,0,0,8,27���0,13,32,201,147,28,29,29���29,29,29,29,29,29,29,29���29,29,29,29,17,17,17,17���17,17,17,17,68,82,65,71��

� PROGRAM 2�" RUN"7N�99:�W$(N):SC�53280Qd�J�832�1022:�B:�J,B:�p��2040,13:�2041,14:�2042,15���792,193:�49659���I�0�N:�W$(I):����"�"�10)"CHOOSE TYPING SPEED"
	���15)"1. FAST":��15)"2. MEDIUM":��15)"3. SLT�.5)
!��(49946)�S�0:E�05
&SR�S�90�20�E:�SR�HS�HS�SRS
0S$��(�(S),2):E$��(�(E),2)u
5SR$��(�(SR),4):HS$��(�(HS),4)�
:�"�"�11)"SPEED .........."S$�
D��11)"ERRORS.........."E$�
N��11)"SCORE........."SR$�
X��11)"HIGH SCORE....55,231,3,255,253,35.��255,255,33,255,192,64,243,254L��64,112,0,32,120,0,33,252i��0,71,252,0,79,254,0,111���246,0,111,243,128,63,224,64���31,192,0,7,224,0,30,96���0,48,48,0,60,30,0,21���1,255,0,3,243,128,7,241���192,7,255,206,7,255
	g�141,21,208,169,0,141,25,195?	h�141,0,208,141,16,208,141,26b	i�195,169,85,141,203,194,173,23�	j�195,141,206,194,169,11,141,207�	k�194,32,38,193,169,15,141,248�	l�7,169,0,141,209,194,32,154�	m�192,201,136,240,69,32,38,193

n�169,0,141,163,96,169,1,141,26,195,766w�107,192,32,228,255,201,136,240Yx�55,201,32,144,245,141,208,194{y�32,217,192,224,1,240,235,201�z�91,176,231,169,14,141,248,7�{�32,3,193,32,153,193,174,24�|�195,32,103,193,169,15,141,248�}�7,32,3,193,173,16,2,208,173,0,208,141,0*
��208,208,5,169,1,141,16,208L
��162,2,32,103,193,206,204,194p
��173,204,194,208,227,96,173,203�
��194,141,1,208,173,207,194,141�
��205,194,169,4,141,204,194,238�
��0,208,174,206,194,32,103,193�
��206,204,194,173,204,19��194,133,129,96,24,177,128,324��210,255,105,64,165,128,105,80W��133,128,165,129,105,0,133,129w��96,169,15,141,0,212,169,85���141,24,212,169,18,141,1,212���169,65,141,6,212,169,28,141���5,212,169,129,141,4,212,162���22,32,97,193,202,160,255,169,3,141"��33,208,169,14,141,32,208,200D��185,212,194,32,210,255,201,0g��208,245,169,163,160,40,32,210���255,136,208,250,32,110,193,162���200,32,103,193,169,157,133,128���169,5,133,129,169,0,141,16���208,169,3,141,0,208,16941,248,7,162,180,32,103"��193,169,14,141,248,7,32,153E��193,172,209,194,32,243,192,32f��3,193,162,55,32,103,193,169���15,141,248,7,32,3,193,162���80,32,103,193,173,209,194,201���13,208,214,169,13,141,248,7���162,100,32,103,193,169,8,��79,78,32,84,89,80,69,13��13,29,29,29,29,29,29,299��29,29,29,29,29,29,66,89V��32,66,79,66,32,83,80,73q��82,75,79,31,13,13,0,1}��10,0,02���80,32,103,193,173,209,194,201���13,208,214,169,13,141,248,7���162,100,32,103,193,169,8,OW"	��A$:�A$�""�190-	�A��(A$):�A�1�A�3�190F	��49943,A:�49944,A�30c	�
�"�":�SC,5:�SC�1,15�	�
�J�1�9:A$�"    ":�I�0�6:R��(�(0)�N)�	A$�A$�" "�W$(R):��	��(A$,35):�:�:�198,0:T0�TI:�49152

T�(TI�T0)�3600:E��(49945):�SC,5:�SC�1,13:S��(47�	"HS$$b��8)"���������"�7)"��������"Fl��8)"  SPACE  "�7)" RETURN "dv��8)"�CONTINUE"�10)"END"o��198,0���A$:�A$�""�710���A$���(13)�A$���(32)�710���53269,0���A$��(32)�500���792,71:����0,127,128,1,249,192,3,248��224,3,2
,250,7
��255,254,99,255,128,17,243,252=
��16,112,0,32,120,0,65,248[
��0,135,248,0,143,252,0,79y
��252,0,111,246,0,63,226,0�
��31,194,0,7,192,0,3,128�
��0,7,0,0,15,224,0,21�
��0,127,0,1,249,199,3,248�
��253,3,255,255,3,255,240,3
��255,E,BUCKET,QUILT,FLAGON,WIZARD,BIRD,HUT,BRIDGE,PIKE,MANf��HEX,CHILD,RIVER,CHEST,GOLD,SILVER,COIN,CASTLE,TUNIC,SPEAR���PATH,MAIL,JOKER,HELMET,FLASK,BEAST,ANIMAL,MAZE,BAY,LORD���TORCH,TABLE,CHAIR,STABLE,HORSE,BISHOP,JESTER,CROWN,GAME,BOOK#��YEOMA,KID,BAZAAR,CLOAK,GEM,LANTERN,STAG,SCARF28f��169, 5,133,129,169, 0,141, 16���208,169, 3,141, 0,208,169, 11���141, 39,208,141, 40,208,141, 41���208,169, 8,141, 25,195,169,125���141,203,194,169, 26,141,207,194��169, 25,141,206,194,169
,193,169=�� 15,141,248, 7, 32, 3,193,162b�� 80, 32,103,193,173,209,194,201��� 13,208,214,169, 13,141,248, 7���162,100, 32,103,193,169, 8,141���206,194,169, 11,141,207,194, 32��� 38,193,169, 1,141, 16,208,169�� 27,141,207,194, 32, 38�9, 29, 29<�� 29, 29, 29, 29, 29, 29, 66, 89a�� 32, 66, 79, 66, 32, 83, 80, 73��� 82, 75, 79, 31, 13, 13, 0, 1��� 10, 0, 0,147, 28, 29, 29���206,194,169, 11,141,207,194, 32��� 38,193,169, 1,141, 16,208,169�� 27,141,207,194, 32, 38�� N��&��,"# SUCCESS"," % PROBABILITY"C�� "TEST 1",T1,T1�100�216`�� "TEST 2",T2,T2�100�216}�� "TEST 3",T3,T3�100�216��� "TEST 4",T4,T4�100�216����
�"SUCCESSFUL ROLLS FOR TEST 4:"�
� M�1 � T4�
RM�RNUM(M)

"
� ROLL(RM,1);ROB��36,201,167,240,32,201-
H��203,240,28,160,1,32G
N��83,192,76,35,192,192^
T��0,240,15,169,1,24y
Z��101,251,144,2,230,252�
`��133,251,136,76,83,192�
f��96,76,207,192,160,2�
l��177,251,201,0,240,20�
r��160,3,177,251,133,253�
x��200,177,251,133,252,205,189,169���58,32,210,255,76,114:���192,169,13,32,210,255S���32,204,255,169,1,32m���195,255,96,160,0,132����20,132,21,200,177,251����201,32,240,249,201,160����240,245,201,164,240,241����201,48,48,50,201,58����16,46,233,47,133,7
�a�210,255,165,253,170,165&2��254,32,205,189,160,0B8��177,251,201,44,240,145Q>��76,35,192�195,255,96,160,0,132����20,132,21,200,177,251����201,32,240,249,201,160����240,245,201,164,240,241����201,48,48,50,201,58����16,46,233,47,133,7
�

�    SUPERHERO*�    BY J.C.HILTYE�    1036 BARNSLEY DR.`(�    LIBRARY,PA.,15129id�"�"zfSR�0:ALT�000�gQ�192:L�1141:C�28:CM�54272:M�0�iV�53248:O�54272�l� 52,48:� 56,48�n� 53281,6:� 53280,2�x�""�5)"       �"	�� �
224,17,255,192,16,247,128/��32,115,128,32,113,128,65,248O��192,71,248,96,79,252,0,111p��246,0,111,243,128,63,224,64���31,192,0,7,224,0,30,96���0,48,048,0,60,30,0���KNIGHT,MAIDEN,KING,QUEEN,PRINCE,SWORD,ZEBRA,VISE,PEASANT,KNAVE'��LANCN,XEBEC,GORGE,PIT,SHIELD,ARMOUR,THIEF,YAM,COOK,SHOE^��LIVER,MALLET,CART,TAX,RAVINE,QUAIL,BOW,ARROW,HEN,FIRE���BABY,WINE,JEWEL,DUNGEON,KNIFE,SERF,CROSS,DAMSEL,QUIVER,HAZE���VIPER,LION,DOG,CANDLE,WOLF,SHIP,LOG,GRATE,NUT,CANNON��QUARRY,IBEX,KEY, 0,141@��209,194,162,255, 32,103,193,206e�� 25,195,173, 25,195,208,243,169��� 1,141, 21,208, 32, 38,193,169��� 15,141,248, 7,162,180, 32,103���193,169, 14,141,248, 7, 32,153���193,172,209,194, 32,243,192, 32�� 3,193,162, 55, 32,103,193, 32:��121,193, 96,125, 0, 0, 8, 27^�� 0, 13, 32,201,147, 28, 29, 29��� 29, 29, 29, 29, 29, 29, 29, 29��� 29, 29, 29, 29, 17, 17, 17, 17��� 17, 17, 17, 17, 68, 82, 65, 71��� 79, 78, 32, 84, 89, 80, 69, 13�� 13, 29, 29, 29, 29, 25)"        �"B	�� �5)"�  �        ߒ �  ߐ   ߐ   ߐ   �"w	�� �5)"�  �       �  ߐ   �     �    �   �"�	�� �5)"�  �     �   �  �  �  � �   � �   � �   "�	�� �5)"�� �       � �  �  �  � � � � � �  �  � � � "
�� �6)"���       � LL(RM,2);ROLL(RM,3),
,
� MdTTL(N)�A�B�CCnN�N�1 : � C : � B : � A[x�"CALCULATING ... "k�� N�1 � 216��:� CT(N,1)�3 � T1�T1�1��:� CT(N,3)��1 � CT(N,6)��1 � T2�T2�1��:� CT(N,2)�0 � T3�T3�1��:� TTL(N)�11 � T4�T4�1:RNUM(M)�N:M�M�1�4,200~��32,83,192,132,67,763���35,192,136,177,69,201L���0,240,52,200,177,69g���133,61,200,177,69,133����62,160,0,177,69,170����200,177,69,133,70,138����133,69,169,0,133,251����169,8,133,252,169,13����32,210,255,165,61,170���165,62,3��165,21,133,34,165,20#
���10,38,34,10,38,34=
���101,20,133,20,165,34U
��101,21,133,21,6,20m
��38,21,165,20,101,7�
��133,20,144,2,230,21�
��200,177,251,76,228,192�
��32,83,192,165,61,197�
 ��20,208,19,165,62,197�
&��21,208,13,169,32,32,� �  �  �  � �   � � � �  �   ��"W
�� �10)"�  �  � �  �  �  � � � �� �   ���� � ��� "�
�� �5)"�     �  �  � �      ���� "�
�� �5)"�      � �  ����      "�
�� �5)"�� �       "�
�� �6)"���       � � ߐ ߒ �    ߒ �   ߒ  �   
,3:� V�23,3� V�28,1:� V�37,10:� V�38,2D&�"":�"�"�12)"GRAPHICS   CHART"Q0� V�21,3t:�""�12)"\      SUPERHERO"�D�""�18)"SPACESHUTTLE"�N�""�12)"*�     ZYPTONITE  METEOR"�X�""�14)"PRESS ANY KEY"�b� A$:� A$�"" � 610              "�� I�� I�1 � 8G��"               �                        "O�� IX�A,4lJ��(�(1)�4):X�J�B�A�A(J):� �(B)�WL��B,J:�A�A(J)�2,HL:A�B:� 780� J�(J�1)��(J�3):� J��X�790�*J��(A):� A,HL:�J�4�A�A�A(J):� 7804�"":�P� 1599,81:� 1599�CM,7R� 1605,81:� 1605�CM,77T� 1137,81:� 1137�CM,7QV� 1131,81:� 1131�CM,7kX� 1857,81:� 1857�CM,7�Z� 1851,81:� 1851�CM,7�\� 1141,28:� 1141�CM,3�a� A,42:J�2�fQ�Q�1:� Q�195 � Q�192�g� 2040,Q�hALT�ALT�1�i� 
0 � 870��W��(L�R)�� W�81 � 1500 �� W��32 � 870?�L�L�R:� L�R,32:�(L�R)�CM,5R�� L,C:� L�CM,3\�� 870t�M�M�1:� M�10 � 2500��L�L�R:� L�R,32���L,C:�L�CM,3��� 2000���"":SR�SR�10:�"�"�17);SR�� 870��� X�O �	�"�"�	�"�"�6)"CONGRATULATIONS".�	�"      PLAY ON!"A�	� T�0 � 3000:�I�	M�0d�	SR�SR�100:ALT�ALT �200o�	L�1141x�	�"�"��	� 710���"�"��� T�1 � 30��� V�39,2:� V�39,1:� V�39,6������ 2100��"SOR�"S C O R E  ";SR��"PLAY AGAIN---Y OR N ":�� JUNK$:� JUNK$��""� 4030Q�� A$:� A$�""� 4040e�� A$�"Y" � 4060k��t��"�"|�M�0��L�1141��ALT�000�SR�0�� 710�`� MULTICOLOR SUPERHERO X3�j� 0,160,0,0,144,0,0,164�� 50,160,0,56,128,0,204,128,0,196,192,0,192,192,0,194,32,0W�� 194,32,0,8,8,0,8,8,0,48,12,0,48,12,0,12,12,0,0,15,0��� 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,64,48,171,0,48,162,0��� 48,164,0,48,136,0,192,128,0,192,192,0,192,192,0,190,0,0,0,0,0�2� ML JOYSTICK ROUTINE*<� 173,1,220,74,176,40,74,74,176,11,169,0oF� 133,254,169,41,133,253,76,182,3,74,176,11,169,0,133,254,169,39�P� 133,253,76,182,3,169,0,133,254,169,40,133,253,76,182,3,74,176�Z� 39,74,176,11,169,39,133,254,�"/�� �15)"� � � � � � �    � � �   �  � �   "f�� �15)"� � � � � � � � ߒ   � � � �  � � � � "�
� �15)"� �   � � �   �  � �   �  � � � � "�
� �15)"� � � � � � � �  ߒ � � ����  � � � � � "
� �15)"��� ���� � ���    � ��
� A:� X,A:�
�
� X� 12416 � 12478)
�
� A:� X,A:�?
�
� X�12480 � 12542N
�
� A:�X,A:�`
�
� X�828 � 973o
�
� A:�X,A:�x
�
�"�"�
�
� 53280,0:� 53281,0�
�
� 2040,194:� 2041,195�
�
� V�39,6:� V�40,1�
�
� V�0,70:� V�1,80:� V�2,70:� V�3,140�
� V�29
l�"�":� V�21,0v� 53280,2:� 53281,0&��A(3)J�A(0)�2:A(1)��80:A(2)��2:A(3)�80k�WL�160:HL�32:SC�1024:A�SC�81y�� I�1 � 6���      "               �                        "��� I��� I�1 � 9���       "                         ""�16)"�SCORE">� �17);SR9?�""�16)"ALT":� �16);ALTH@� 2040,192sA� V�0,150:� V�1,60:� V�2,150:� V�3,190�B� V�21,3�H� 1113,81 :� 1113�CM,7�J� 1835,81:� 1835�CM,7�L� 1825,81:� 1825�CM,7�N� 1509,81:� 1509�CM,7ALT�800�3500#k�"":�"�" �16);ALT2lB�A�A(J)�2`m� �(B)�32��B,42:�A,32:A�B:J�(J�2)�4�(J�1)�n� �(B)�81 � � B,42:� A,81:� A�CM,7:A�B:J�(J�2)�4�(J�1)�o� �(B)�28 � 3000�pJ�(J�1)�4�(J�0)�q�(828):R��(254)��(253)�z� R�� 0�24:� X,0:��� O,150:�O�1,200:�O�5,8:�O�6,248.��O�24,15:�O�4,17=�� T�0�50:�I��O�4,16X� T�0�50:�d�O�24,0j��4� X�O � O�24:�X,0:��>�O�24,15:�O�12,160:�O�13,252�H�O�8,80:�O�7,40:� O�11,129�R� T�0�100:��\�O�11,128:��RY,A ZYPTONITE METEOR CRUSHED YOU."�� T�0 � 3000:�#�� 4000-�
� "�"<�
� T�1 � 20[�
� V�40,2:� V�40,6:� V�40,1a�
�l�
� 2100��
�"�THE SHUTTLE IS 800 MILES UP--TOO LATE."��
� T�0 � 3000:���
� 4000���"�"��� V�21,0��44,0,0,192,0,3,160,0,12,160,09t� 48,160,0,48,160,0,48,160,0,48,128,0,192,128,0,192,192,0u~� 192,192,0,192,128,0,192,128,0,0,128,0,0,128,0,0,192,0��� 0,192,0,0,192,0,0,240,0��� 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,0,50,170,64,50,170,4,32,0�� 194,32,0,2,32,0,2,32,0,2,32,0,3,48,0,3,48,0,3,252,0-�� SPACESHUTTLE[�� 0,0,0,0,0,0,32,0,0,32,0,0,48,0,0,56,0,0��� 63,255,192,63,255,224,61,85,48,63,255,56��� 63,255,252,12,62,0,8,60,0,8,56,0,0,48,0��� 0,32,0,0,0,0,0,0,0,0,0,0,169,0,133,253,76,182,3,74,176,117d� 169,41,133,254,169,0,133,253,76,182,3,169,40,133,254,169,0}n� 133,253,76,182,3,74,176,11,169,0,133,254,169,1,133,253,76,182,3�x� 74,176,11,169,1,133,254,169,0,133,253,76,182,3,169,0,133,254�� 133,253,173,1	� � ��� � ���   ""
�4,
� �9)"SAVE THE SPACE SHUTTLE"N6
� �16)"PRESS ANY KEY"e@
� A$:� A$�"" � 320�J
�"":�""  �15)"PLEASE WAIT..."�T
� �15)"READING DATA"�r
� X�12288 � 12350�|
� A:� X,A:���
� X�12352 � 12414
�

 
�    *** PIG IN A POKE ***S� AN EXAMPLE OF GAME PROGRAMMING WITH A SPRITE�� ** MOVE TOP OF MEMORY TO MAKE ROOM FOR VIDEO BLOCK AT 32768�� 55,255:� 56,127:� 643,255:� 644,127�	�      *** SET-UP SUBROUTINES ***	
� 600:� (VIDEO MEMOR:� LT(0),ST(XK)*
}� HT(0),HH(HP):� HR,HB(HP)C
�� �(TI$)��DT � � 500Y
�� �(CF)�0 � � 400c
�� 100�
��     *** WAIT FOR RESPONSE ***�
(
��
*
�     *** ENDING ROUTINES ***�
,
� "�FINAL SCORE:  "RT�100�VP�10:�:�:VP�15:� VT(0),VV(VP)&6
� "TO PLA� ** PUT VIDEO MEMORY BACK TO FIRST BLOCK, AND SCREEN MEMORY TO 1024nr
� 56578,�(56578)�3:� 56576,(�(56576)� 252)� 3�s
� 53272,20:� 648,4�{
� ** REENABLE SHIFT/COMMODORE AND RUN-STOP/RESTORE�|
� 657,0:� 792,71:� 808,237��
�
�
�     *** COLLIS
R SIMPLE JUMP?�
� RC�DS � 506)�
� ** SIMPLE JUMPN�
� "";`�
RC�RC�1:� 520�
� ** PUT NEW ROW ON SCREEN��
� ""�(WS$,WL(DL)��(19��(9)),40)"";��
RC�0:RT�RT�1:DL�DL�1:� DL�8 � DL�0:DS�DS�1XVB�32768:� 56578,�(56578)�3:� 56576,(�(56576)� 252)� 1tY� ** TELL VIC-2 WHERE SCREEN IS WITHOUT CHANGING CHARACTER SET LOCATION�ZSB�0:� 53272,(SB�16)�4:SB�VB�1024�SB�[� ** TELL BASIC WHERE SCREEN IS�\BB�SB�256:� 648,BB�`�    *** REGISTER)�HT(I�1)�2:�!g� ** SPRITE VERTICAL POSITION TABLEMhVT(0)�53249:� I�1 � 7:VT(I)�VT(I�1)�2:�zi� ** SPRITE HORIZONTAL HIGH-BIT REGISTER�jHR�53264�k� ** SPRITE ENABLE REGISTER�lES�53269�m� ** VERTICAL EXPANSION REGISTER (1=DOUBLE HEIGHTTE MULTICOLOR COLOR REGISTERSCvMR�53285:� ('01' REGISTER: ADD 1 TO MR FOR '11' REGISTER)mw� ** SPRITE-SPRITE COLLISION REGISTERzxCS�53278�y� ** SPRITE-FOREGROUND COLLISION REGISTER�zCF�53279�{� ** SET-BIT AND CLEAR-BIT VALUES|BS(0)�Q,220,74,74,74,74,74,176,7,169,1,133,80,76,203,3!�� 169,0,133,80,96,234,234,0oF� 133,254,169,41,133,253,76,182,3,74,176,11,169,0,133,254,169,39�P� 133,253,76,182,3,169,0,133,254,169,40,133,253,76,182,3,74,176�Z� 39,74,176,11,169,39,133,254,�� ** SPRITE COLORS (DEFAULTS: WHI,RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY)M�� CT(0),1:� (THE PIG IS WHITE)c�� ** SET PRIORITY�� PR,0:� (ALL IN FRONT)��� ** SET HORIZONTAL SIZES��� HE,0:� (ALL NORMAL WIDTH)��� ** SET VERTICAL SIZES��� VE BACKGROUND STRING ***
�WC$�"�":BC$�" "#�� SET UP WALL STRING2�� I�1 � 12c�� EACH WALL UNIT IS WIDER, EACH GAP NARROWER��� J�1 � 5�I:WS$�WS$�WC$:���� J�1 � 15�I:WS$�WS$�BC$:������� SET WALL STARTING POINTS��WL(0)�1:� I�1 � 9:WL
Y) 	� 700:� (BACKGROUND STRING)<	� 800:� (SPRITE SHAPES)[	
� 900:� (SPRITE POSITIONS)e	� 100�	b�      *** ACTION LOOP ***�	dK�KP(�(653)):� K�2 � EG�1 � 300�	i� K�1 � 130�	nHP�HP�K(K):� HP�0 � HP�HZ�	s� HP�HZ � HP�0
x� K��XK � XK�KY AGAIN, PRESS P":� "TO QUIT, PRESS Q":HP�79_;
HP�79:� HR,HB(HP):� HT(0),HH(HP):XP�1:� LT(0),ST(XP)y@
Z��(203):� Z�62 � 370�E
� HT(0),HH(HP):� HR,HB(HP)�J
HP�HP�1:� HP�HZ � HP�0�Y
� Z��41 � 320�^
EG�0:DL�0:DT�1:DS�5:RT�0:RC�0:� 930:� 100<q
ION HANDLER ***
�
� ** END GAME?4
�
VP�VP�1:� VP�0 � EG�1:�E
�
� ** MOVE UPX
�
� VT(0),VV(VP)z
�
� ** CLEAR COLLISION REGISTER�
�
Z��(CS):Z��(CF)�
�
� ** NEW COLLISION?�
�
� �(CF)�0 � 400�
�
��
�
�     *** SCROLL ROUTINE ***�
� ** NEW ROW O�
� ** END OF GAME?�
� RT�49 � EG�1=� �(CF)�0 � � 400:� ** COLLISIONSD� 217,L1:� 218,L2hM� ** RESET TIMERyNTI$�"000000"T��V�    *** ARRANGE MEMORY ***�W� USE THIRD VIDEO BLOCK (32768 TO 49151), SO ROM CHARACTER SET IS USABLE.( ADDRESSES ***!a� ** SPRITE SHAPE LOCATION TABLEObLT(0)�SB�1016:� I�1 � 7:LT(I)�LT(I�1)�1:�kc� ** SPRITE COLOR TABLE�dCT(0)�53287:� I�1 � 7:CT(I)�CT(I�1)�1:��e� ** SPRITE HORIZONTAL POSITION TABLE (LOW BYTES)�fHT(0)�53248:� I�1 � 7:HT(I)�nVE�532710o� ** HORIZONTAL EXPANSION REGISTER (1=DOUBLE WIDTH)=pHE�53277�q� ** SPRITE PRIORITY REGISTER (1=SPRITE IS IN FRONT OF FOREGROUND)�rPR�53275�s� ** MULTICOLOR ENABLE REGISTER (1=MULTI-COLOR ENABLED)�tEM�53276u� ** SPRI1:� I�1 � 7:BS(I)�2�BS(I�1):�#}� I�0 � 7:BC(I)�255�BS(I):�G~�     *** INITIALIZE VALUES ***a� ** FOREGROUND COLOR��� 53281,9:� "��";:� (BROWN)��� ** BACKGROUND COLOR��� 53281,5 :� (GREEN)��� ** BORDER COLOR��� 53280,9:� (BROWN)*(I)�WL(I�1)�20:�7�� SET DIFFICULTY LEVELS (DL=SPACING; DT=TIMING; DS=VERTICAL SPACING)J�DL�0:DT�1:DS�5P�p�     *** SPRITE SHAPES ***�� ** NUMBER OF SPRITE SHAPES (-1);NUMBER OF LINES PER SPRITE SHAPE (-1)� NS�1:TS�9�!� ** LOCATE S	,0:� (ALL NORMAL HEIGHT)�� ** ENABLE SPRITES3�� ES,BS(0):� (SPRITE 0 ONLY)W��     *** SAFETY PROCEDURES ***��� 657,128:� DISABLE SHIFT/COMMODORE CHARACTER SET SWITCH��� 808,234:� 792,193:� DISABLE STOP AND STOP/RESTORE������     ***
 X�X � BS(8�L)�'�:� Y,X:�:� SS$:�((Z�64�(TS�3�2):� J�Y�1 � Y�Z:� J,0:�:�f)� SPRITE SHAPE DATA, 21 LINES  PER SHAPE: *='ON'  .='OFF'�*� ".....*..............**.."�+� ".....**....******.....*."�,� "....****************.*.."�-� "...*.**......*......"6� "*.....******....**......"&7� ".*.****************....."G8� "..****************.*...."h9� ".**********************."�:� ".**********************."�;� "..*****************....."�<� "...**************......."�=� ".�X�2:� X�255 � X�X�256:B�1����� ** ASSIGN VERTICAL VALUES6�X�53:� I�0 � VZ:VV(I)�X:X�X�8:�O�� ** KEYPRESS MATRIX`�� KP(7),K(2)��� I�0 � 7:KP(I)�2:�:KP(1)�1:KP(2)�0:KP(7)�3��K(0)��1:K(1)�1:K(2)�0��� ** INITIAL SPRITE POSITIONING��EAR SCREEN LINE LINK TABLE!�L1��(217)� 128:L2��(218)� 128:� 217,L1:� 218,L2?!�� ** CLEAR COLLISION REGISTERSS!�Z��(CF):Z��(CS)f!�� ** SET CLOCKw!�TI$�"000000"}!��2)�0:KP(7)�3��K(0)��1:K(1)�1:K(2)�0��� ** INITIAL SPRITE POSITIONING�
� << RR21-1 >>
�5� -- DICE SIMULATOR --N�  RUPERT REPORT #21T�p� RANDOMLY SIMULATE THE�� OUTCOMES FOR ROLLING THREE DICE���� >>DETERMINE THE PROBABILITY THAT�	�   THE SUM IS ELEVEN�
N�1 : R$��(18) :� RVS ON	�1
�� 601-1 >>
�5� -- DICE SIMULATOR --N�  RUPERT REPORT #21T�p� RANDOMLY SIMULATE THE�� OUTCOMES FOR ROLLING THREE DICE���� >>DETERMINE THE PROBABILITY THAT�	�   THE SUM IS ELEVEN�
N�1 : R$��(18) :� RVS ON	
� << RR21-2 >>
�4� -- DICE ANALYZER --M�  RUPERT REPORT #21S�p� ENUMERATE ALL POSSIBLE�� OUTCOMES FOR ROLLING THREE DICE���� >>CALCULATE THE PROBABILITY THAT�
�   1) 3 ONES ARE ROLLED	�   2) AT LEAST 1 THREE AL(216,3),CT(216,6),TTL(216),RNUM(216):
N�1 : M�1 : � �(147)T
(� A�1 � 6 : � B�1 � 6b
2� C�1 � 6n
<� A;B;C�
FROLL(N,1)�A:ROLL(N,2)�B:ROLL(N,3)�C�
PCT(N,A)�CT(N,A)�1 :CT(N,B)�CT(N,B)�1�
ZCT(N,C)�CT(N,C)�1�
dTTL(N)�A�B�CnN�N�1 : � C : �PRITE SHAPE MEMORY"ST(0)�16:� I�1 � NS:ST(I)�ST(I�1)�1:�'#� ** LOOPSi$� I�0 � NS:� J�0 � TS:� SS$:� K�0 � 2:X�0:Y�VB�ST(I)�64�J�3�K�%� ** CONVERT STRINGS TO SHAPE BYTES (USE BS(0-7) TO SET BITS)�&� L�1 � 8:M�L�8�K:M��(�(SS$,M,1)):� M�42 ��T1�100�216�� "TEST 2",T2,T2�100�216<�� "TEST 3",T3,T3�100�216Y�� "TEST 4",T4,T4�100�216_���
�"SUCCESSFUL ROLLS FOR TEST 4:"�
� M�1 � T4�
RM�RNUM(M)�"
� ROLL(RM,1);ROLL(RM,2);ROLL(RM,3),�,
� MdTTL(N)�A�B�CnN�N�1 : � C : �
**************...".� "**********************..",/� "**********************.."M0� "....*****************..."n1� "......**************...."�2� "......**.*.....*.**....."�3� ".....**..**...**.**....."�4� ** 2ND SHAPE�5� ".**...........**.*.....*.**......."
>� "....**.**...**..**......"��6��     *** SPRITE POSITIONS ***Y�� ** POSSIBLE POSITIONS DIM'ED��VZ�19:HZ�147:� HH(HZ),VV(VZ),HB(HZ)��� ** ASSIGN  HORIZONTAL VALUES��X�24:B�0:� I�0 � HZ:HH(I)�X:HB(I)�B��X�HP�79:VP�VZ:XK�1 �� VT(0),VV(VP):� HT(0),HH(HP):� HR,HB(HP)@ �� ** TELL VIC-2 WHERE TO FIND SPRITE SHAPES �� LT(0),ST(XK)r �� ** CREATE SCREEN DISPLAY� �� "�";:� I�0 � 5:� J�0 � DS:� "";:�� �� �(WS$,1��(19��(9)),40);:�:� "";� �� ** CL
	�90D��(�(1)�9)�1_E��(�(1)�9)�1:I�D�E:�"";D;"�";E;�X�2:Q�0:�T�1�7:�U,241:�TT�1�300:�:�U,0:�TT�1�50:�:�:�34��Q�I�18�	�Q��I�70��A,G:�A�B,2:Q�Q�1:�T�170�135��1:�U�1,T:�:�U�1,0:�A,32:�407	K�K�1:�� �(147);#	� �15)R$;"<< # ROLLS "@	(� �15)R$;"<< # SUCCESS "a	2� �15)R$;"<< % PROBABILITY "s	<A��(�(0)�6)�1�	FB��(�(0)�6)�1�	PC��(�(0)�6)�1�	ZTTL�A�B�C�	d� TTL�11 � SXCS�SXCS�1�	n� �(19);N : � SXCS�	xPROB�100�SXCS�N : � PROB�	�N�N"��GREAT!!!":�"CORRECT ANSWER!":�"";D;"�";E;"=";Ig	�"�YOUR SCORE IS NOW";K:�T�135�241:�U,T:��	�U,0:�T�1�2:�U,241:�TT�1�200:�:�U,0:�TT�1�50:�:��	�"�HIT SPACE"�	��(197)��32�22�	PP�PP�1:�PP�10�29
�36869,240:�"�       GAME OND 1 SIX              ARE ROLLED<	�   3) NO TWOS ARE ROLLEDY	
�   4) THE SUM IS ELEVEN_	��	� >ON THE NTH ROLL (N = 1 TO 216):�	� ROLL(N,Y) = DIE Y'S VALUE�	� CT(N,Z) = # DICE WITH VALUE Z�	� TTL(N) = SUM OF DICE VALUES�	�!
� ROL	 B : � Ax�"CALCULATING ... "*�� N�1 � 216E�:� CT(N,1)�3 � T1�T1�1n�:� CT(N,3)��1 � CT(N,6)��1 � T2�T2�1��:� CT(N,2)�0 � T3�T3�1��:� TTL(N)�11 � T4�T4�1:RNUM(M)�N:M�M�1��� N������,"# SUCCESS"," % PROBABILITY"�� "TEST 1",T1,
0,0,12,158,253,247,144,12,0,0,48,121,191,239,9,48,0|^�14,7,143,223,255,255,223,143,0,0,192,160,240,184,128,240,0,0,0,0,4,28,60,28,0,0,0�_�0,0,0�d�36879,8:�"�����������������":�"���������������":�"���������������"e�"���������������":�"�������0�:�36876,0k�A$:�A$��""�29l�m�10648,0|^�14,7,143,223,255,255,223,143,0,0,192,160,240,184,128,240,0,0,0,0,4,28,60,28,0,0,0�_�0,0,0�d�36879,8:�"�����������������":�"���������������":�"���������������"e�"���������������":�"��������K�1�40:�K�f�L4p�S�24,0:�V�23,0:�V�29,0:�"�":�PS�2,21:�PS,�(PS)�239ozSL�SL�SC�10:SC�0:��12)"�"MP$:��11)"�YOUR SCORE:�";SL���SL�HS�HS�SL����11)"�HIGH SCORE:";HS���"�WOULD YOU LIKE TO PLAY AGAIN? (Y/N)"���F$:�F$�""�930