OPLObjectFile** LOC::M:\OPL\COLS2.OPL Cols2.ODB \OPD\ DATA& MAXLV% DELAY% SPEED% NEXT% MAXSK% SCORE& PLAY% PASS$ GRID& STOP% BONUS% RATE% PSION% PSION$ FIND$ LOADO LOADLEV LHIGH GETKEY LEVEL SCORE ERASE RESTART please wait ... \app\cols2\cols2.binO flash_1aO flash_1bO \app\cols2\cols2.fonO O D[ FLASH SHAPE$ CHIGH DECODE SCORE CHECK ERASE PSION% PSION$ PLAY% GRID& NEXT% SPEED% STOP% DELAY% RATE% BONUS% SCORE& MAXLV% MAXSK% PQRST PQRST G P{IO1{I~W On0[ Level completedO No more levelsO Why not design some?O PASS$ Password for level FIND$ \app\cols2\ .picKO PSION% PLAY% PSION$ O?|JyW |JWB} SCORE& BONUS% cascadeO RESTART SCORE archO pillar_aO pillar_bO pillar_cO DECODE press enter to begin GRID& DELAY% ALLOC GRID& DATA& ALLOC S3AsmObjG[ fill_1O fill_2O titleO authorO DECODE PLAY% Game+ SoundOs+ Start levelOl+ ExitOx Game+ SoundOs+ RestartOr+ ExitOx Special+ Next pieceOn+ RegisterOq+ VersionOv Special+ Next pieceOn+ Redefine keysOk+ DesignerOd+ High scoresOh+ VersionOv Special+ Next pieceOn+ High scoresOh+ VersionOv RECORD DESIGN PASS$ SHIGH PLAY% MAXLV% NEXT% STOP% Ox@[9 + Quit game YesOy+ W7Oy@[ Os@[& Sound:+ On,Off Skill: Start level:O + Password:O (?E@`[! + Confirmed Password incorrect On@[$ Show next:+ Yes,No REDRAW SCORE REMOVE DATA& PLAY% SCORE& gem_bellO part_zapO PQRSTW hi_scoreO PQRSTW {I~O* REDRAW {I~O O D[J {I~O RECORD Register game Name: Code: Registration confirmed Psion 3a Registration failed Columns v2.11 (04/10/94) + stevegodfrey@cix.compulink.co.uk + stevegodfrey@zaparta.demon.co.uk To register send 5 ($10) to: Steve GodfreyO 12 Linden PlaceO Mitcham, SurreyO CR4 4EY, England.O Registered to: FIND$ \opd\cols2.datO key definitionsC[V SoundC[ Name+ Score/level( FIND$ \opd\cols2.datO loc::m:\opd loc::m:\opd\cols2.dat key definitions Sound SHOWKEY RECORD Redefine keys Key for Left Right Drop Up Down + cursor up cursor down cursor right cursor left space enter diamond key loc:: PASS$ (5({Q {]Oa{IxW FIND$ GETREC LOADLEV Level designer edit level: ,K ,,K \app\cols2\cols2.levO \app\cols2\cols2.fonO G[% level name:O no. of gems: no. of shapes: spread: blocks: speed: different shapes: touching to clear: rate: bonus: FIND$ MAXSK% MAXLV% \app\cols2\cols2.levO MAXLV% MAXSK% maxlv%W maxlv%W maxsk%W maxsk%W FIND$ GETREC GRID& RATE% BONUS% please wait ... 00000000000000 00000000000000 \app\cols2\cols2.levO RECORD SHIGH SCORE& MAXLV% + Game over Game over - high score enter name: hi_scoreO FIND$ {A\[E \app\cols2\ .wveKO WPO O PLAYc SHAPE$W SCOREx FLASHI GETKEY WIPEL ERASE REDRAW LOADO ALLOC RESTART/ DECODE CHECK REMOVE REG' VER}! LHIGH SHIGH RECORD SHOWKEY)) FIND$^* PASS$ DESIGN\+ LOADLEV GETREC EVAL~0 LEVEL CHIGH#5 INV$y7