LST
OPTBL DW OP0  Address of option zero routine
 DW OP1  Address of op. 1
 DW OP2    |
 DW OP3    |
 DW OP4    |
 DW OP5    |
 DW OP6    |
 DW OP7    |
 DW OP8    |
 DW OP9    |
 DW OPA    |
 DW OPB    |
 DW OPC    |
 DW OPD    |
 DW OPE    |
 DW OPF  Address of op. letter F
*
*
HITMS ASCZ "   IT'S A HIT!   "
NAME ASCZ '*** COLLISION ***'
EXTRA ASCZ '* Extra Time! *'
OVRMS ASCZ '  * * * G A M E   O V E R * * *  '
NEWHI ASCZ 'N E W   H I G H   S C O R E:   '
BLANK ASCZ '                      '
BL1 ASCZ '           '
STSPD ASCZ 'Set speed (fast=0 to 5) or "D" to start'
STDIF ASC '   Difficulty level (easy=1 to 3) ? '
 DB 0A0H,20H,20H,0
STOPT ASC 'What option (0-9,A-F) would you like? '
 DB 0A0H,20H,20H,20H,0
*
* Most of the following lines are 32 characters wide.
*
TOP ASC   '                   PROTEUS  Soft'
 ASCZ 'ware  Library                   '
BOTOM ASC '   Time left:  99       *** COLL'
 ASCZ 'ISION ***      Collisions: 00   '
INSTR ASC '|----------------- PROTEUS  Soft'
 ASC 'ware  Library -----------------|'
 ASC '|                      *** COLLI'
 ASC 'SION ***                       |'
 ASC '|             written by Stephen'
 ASC ' Maguire (C) 1980              |'
 ASC '|                               '
 ASC '                               |'
 ASC '|         Collide your ball ('
 DB 0EH
 ASC ') '
 ASC 'with the bouncing ball         |'
 ASC '|         Extra time goal varies'
 ASC ' with difficulty level         |'
 ASC '|                               '
 ASC '                               |'
 ASC '|         ESC = exit           W'
 ASC '           DEL = reset         |'
 ASC '|         "Z" = down        A -+'
 ASC '- S        "S" = right         |'
 ASC '|         "W" = up             Z'
 ASC '           "A" =  left         |'
 ASC '|                               '
 ASC '                               |'
 ASC '|                               '
 ASC '                               |'
 ASC '|                Hit "R" to rese'
 ASC 't the high score               |'
 ASC '|                       High sco'
SSCOR EQU $
 ASC 're is 00                       |'
 ASC '|-------------------------------'
 ASC '-------------------------------|'
 DB 0
*
TIME DB 0  Data storage bytes used by the program
COUNT DB 0
KOUNT DB 0
PLLOC DW 0
BLLOC DW 0
SCORE DB 0
LAST DB 'S'-40H
DEMO DB 0
VRTCN DB 1
SPEED DB 0
HORIZ DW 40H
VERTI DW 1
CHECK DB 0
HIGH DB 0
CHHI DB 0
OPTION DB 0
DIFF DB 0
COMON DW 0
SHLD ASC 'SEAD'
*
 ASC 'COPYRIGHT (C) 1980 BY STEPHEN MAGUIRE'
 DS 15H
STACK EQU STACK
 END