home *** CD-ROM | disk | FTP | other *** search
/ Cursor Magazine Issues 1 to 30 / CURSOR26.D64 / ram < prev    next >
Encoding:
Unknown  |  1978-01-01  |  5.7 KB
  1. !†:PG$²"RAM":NM$²"26":⇨620000"HAL CAREYF"9002 BERCLAIR RD_"HUNTSVILLE AL 35802e""CURSOR #26 JUNE 1981¤"COPYRIGHT(C)1981 THE CODE WORKSÁ"BOX 550 GOLETA CA 93116Ç"Ô
  2. "6/18/81Ýd−"" n−"WHO'S PLAYER ONE? ";:™60000:P1$²È(IN$,9)#x⇧IN$²""§−"’’":⇨110Tŵ−"WHO'S PLAYER TWO? ";:™60000:P2$²È(IN$,9)m…⇧IN$²""§−"’’’’":⇨130­„S1$²"ÑÑ":S2$²"××":S(1)²Æ(È(S1$,1))«128:S(2)²Æ(È(S2$,1))«128Å P$(1)²P1$:P$(2)²P2$ߪ−"›":P²1:FX²1:Y²4:X²2ÿ´EN²CRTªWD¬25:W(1)²29:W(2)²8JÒLO(2)²CRTª10¬WDª26:LO(1)²CRTª10¬WDª11:C(2)²CRTª8ªWD¬4:C(1)²CRTª29ªWD¬4bÜŴI²1¤40:U$²U$ª"Å":ŵ¨æM6$²"YOU HAVE JUST INDICATED":M7$²"THE END OF THE GROUP TO MOVE"çðM0$²"PUT CURSOR AT FRONT":M1$²"OF GROUP AND HIT RETURN‹"(úM3$²"PUT CURSOR ON SPACE":M4$²"TO MOVE TO AND HIT RETURN‹"KM2$²"ERROR-- BEGIN MOVE AGAIN"|M5$²"                                      "†MO$²""Þ"ŴI²1¤2:MO$(I)²MO$:LN²9«Ã(P$(I)):ŴJ²1¤LN:MO$(I)²MO$(I)ª" ":ŵ:ŵò@P²3«P:W²0:™1080üJG$²""TO²W:™450:⇧(TH³²OH)¯PY³16⇨3409^⇧PY²16§™1360:™1290:⇨370Ch™1260VrPY²0:⇧QT²0§320r|⇧¶(Z(1)«Z(2))³±1§Q$²"S"Ŷŷ⇧Z(1)±Z(2)§420—‘⇧Z(1)³Z(2)§430¡Œ⇨440ؤ−"›"P1$" BEAT "P2$" BY"Z(1)"GAME"ªQ$" TO"Z(2):€    ®−"›"P2$" BEAT "P1$" BY"Z(2)"GAME"ªQ$" TO"Z(1):€=    ¸−"›"P2$" TIED "P1$" AT"Z(1)"GAME"ªQ$:€a    ÂP²3«P:LT²LO(P):X²2:Y²4:⇧P²2§X²7q    Ì™1630:™1560‘    ÖX1²X:Y1²Y:™1380:⇧JP³±1§460º    à™1660:HX²X:HY²Y:™1490:X1²X:Y1²Y:™1380Ê    ê⇧G$²"›"§460â    ôTX²X:TY²Y:⇧JP±1§610
  3. þ⇧HX³±TX¯HY³±TY¯¶(HX«TX)³±¶(HY«TY)§880&
  4. ™1690:™1490:DX²X:DY²Y6
  5. ⇧G$²"›"§460R
  6. SP²HX«TX:⇧SP²0§SP²HY«TYq
  7. &SP²¶(SP)ª1:™1480:⇧SP²1§580Œ
  8. 0X1²HX:Y1²HY:ŴN²1¤SP:™1380:⇧JP³±1§880²
  9. :X1²X1«CX:Y1²Y1«CY:ŵÔ
  10. DDQ²¶(DX«HX):⇧DQ²0§DQ²¶(DY«HY)ì
  11. NDQ²DQ«1:⇧DQ²±SP§880õ
  12. X⇨690 bDX²X:DY²Y l™1480> vX1²HX:Y1²HY:ŴSP²0¤8:™1380:X1²X1«CX:Y1²Y1«CY:M €⇧JP³±1§660U ⇩ŵSPy “TX²HX«CX¬(SP«1):TY²HY«CY¬(SP«1)œ fiDQ²¶(DX«HX):⇧DQ²0§DQ²¶(DY«HY)³ ¨DQ²DQ«1:⇧DQ²±SP§880× ²X1²HX«TX:X2²DX«TX:⇧ X1³±0 § 695 ³⇧HX³±DX¯HY³±DY¯¶(HX«DX)³±¶(HY«DY)§880
  13. ´⇨710+ ·X2²DX«TX:⇧(X1²0)³±(X2²0)§880R ¼⇧X1³±0§⇧(HY«TY)­X1³±(DY«TY)­X2§880z ÆX1²HX:Y1²HY:HX²TXªDQ¬CX:HY²TYªDQ¬CY¬ ÐN3²0:N1²0:N2²0:ŴN²1¤8:X1²X1ªCX:Y1²Y1ªCY:™1380 Ú⇧JP²1¯N³²DQª1§880Û Û⇧JP²2¯N2²0§N2²1:N3²Nð Ý⇧JP³±2¯N2²1§N2²2ß⇧JP²2¯N2²1§N1²N1ª1:⇧N2²0§N2²1:N3²N-à⇧N2²2¯N³²DQª1§880Bî⇧N2²0¯N²DQª1§800HøŵV⇧N2²0§800h⇧N3³±DQª1§880© ™1570:⇧N1±²SP§880:HX²HX«(DQª2«N3)¬CX:HY²HY«(DQª2«N3)¬CY:⇨800ÓHX²HX«(DQª1«N3)¬CX:HY²HY«(DQª1«N3)¬CY X1²TX:Y1²TY:ŴN²1¤SP:™1460:X1²X1ªCX:Y1²Y1ªCY:ŵ7*X1²HX:Y1²HY:ŴN²1¤SP:X1²X1ªCX:Y1²Y1ªCY:™1430:ŵX4OH²0:ŴN²C(P)¤C(P)ªWD¬16©WD¬2~>⇧Â(N)²S(P)°Â(N)²102§OH²OHª1:™1620☓Hŵ©RTH²0:ŴN²C(3«P)¤C(3«P)ªWD¬16©WD¬2Ñ\⇧Â(N)²S(3«P)°Â(N)²102§TH²THª1:™1620Ùfŵ:‰íp−MO$M5$:−:−M5$;z™1570:−MO$(P)P$(P)": "M2$:ŴJ²1¤2000:ŵ ‰⇨460D—–LªI¬Dª1,96:–Lª1ª(IªN)¬D,S(P):ŵi¢I²Lª(NªF«1)¬D«CRT:X²I«WD¬µ(I­WD)|¬O²W:⇧X³±W(P)§‰⇦¶PY²PYª1©ÀW²Wª2¬P«3:⇧Â(C(3«P))±127⇨980ÇÊ–IªCRT,102:–1ªIªCRT,102:‰åÔ–IªCRT,102:–1ªIªCRT,102:‰ëÞ‰èT7²0:NA$²P$(P):⇧P²2§NA$²P2$:T7²39«Ã(P2$)$òTN²TIª4Sü¡G$:⇧G$³±""§−""P1$:−""£39«Ã(P2$))P2$:‰c⇧TI³TN§1020Ŵ−""£T7ªFX«1)Ê(NA$,FX,1)‡FX²FXª1:⇧FX±Ã(NA$)§FX²1¾$−""£T7ªFX«1)""Ê(NA$,FX,1)È.⇨1010é8−""P1$:−""£39«Ã(P2$))P2$
  14. BGM²GMª1:−""£16)"GAME"GM""L−"WON"£36)"WON")V™12209`SZ²7:−""`j−£7);"°";:ŴI²1¤SZ:−"ÀÀ²";:ŵ:−"ÀÀ®"ltŴJ²1¤SZ™~−£7);:ŴI²0¤SZ:−"Ý  ";:ŵ:−"Ý"´⇦−£7);"«";:ŴI²1¤SZ:−"ÀÀÛ";:ŵ:−"ÀÀ³"»‹ŵJ܆−£7);:ŴI²0¤SZ:−"Ý  ";:ŵ:−"Ý"¦−£7);"­";:ŴI²1¤SZ:−"ÀÀ±";:ŵ:−"ÀÀ½";°−"":ŴI²1¤SZª1:−£8)S1$""S1$;¦13);S2$""S2$"":ŵAº‰nÄ−"":C$²Ä(Z(1)):⇧Z(1)±²0§C$²Ê(C$,2)⇨ÎC$²È(C$ª"    ",4):−C$;®ØC$²É("    "ªÄ(Z(2)),4):−£35);C$;´â‰ÎìZ(3«P)²Z(3«P)ª1:P²3«Pâö−MO$M5$:−:−M5$;−MO$(P);"       "P$(P);" WINS!!!‹               "#
  15. ™12201ŴJ²1¤31007ŵv(−MO$:−"             ":−"            PLAY AGAIN ? ";:™60000–2−"’":QT²0:⇧"N"²È(IN$,1)§QT²1¾<−"’                              "ÕF−MO$;M5$:−:−M5$;:‰ôPP²3«P:−MO$(P);"  A TIE!!"úZ‰2dJP²Â(CRTª5ª(X1¬3)ª(Y1¬WD¬2)ª2¬WD):⇧JP±128§JP²JP«128Fn⇧JP²S(P)§JP²1:‰\x⇧JP²S(3«P)§JP²2:‰nŵ⇧JP²96§JP²3:‰t…‰−„JP²(CRTª5ª(X1¬3)ª(Y1¬WD¬2)ª2¬WD)± –JP,S(P):–JPª1,S(P)·ª‰Ü´JP²(CRTª5ª(X1¬3)ª(Y1¬WD¬2)ª2¬WD)ò¾–JP,96:–JPª1,96:‰ÈCX²´(DX«HX):CY²´(DY«HY):‰1Ò™1600:™1000:⇧G$²CR$°G$²"›"§‰GÜI²Å(G$):⇧I²0§1490máCX²µ((I«1)­3):CY²1«CX:CX²I«3¬CX«2−æLT²Lª2¬WD¬CYª3¬CX:X²XªCX:Y²YªCY:T²Â(LT)³ð⇧X±0¯X³9¯Y±0¯Y³9§1540ÐúX²X«CX:Y²Y«CY:LT²L:⇨1490à–L,Â(L)¯127ô–Lª1,Â(Lª1)¯127L²LT:–L,Â(L)°128:–Lª1,Â(Lª1)°128:⇨1490B"JP²(CRTª5ª(X¬3)ª(Y¬WD¬2)ª2¬WD)Y,JL²Â(JP):⇧JL³128§‰w6–JP,JL«128:–JPª1,JL«128:‰…@¡G$:⇧G$³±""§1600‹J‰¨T–N,102:–Nª1,102:‰Â^−MO$;M5$:−:−M5$;:−""ýhTB²((40«Ã(P$(P))«23))­2:−MO$;£TB)P$(P)": "M0$:−£TB)M1$r‰|−MO$;M5$:−:−M5$;:−""XŷTB²((40«Ã(P$(P))«21))­2:−MO$;£TB)P$(P)": "M3$:−£TB)M4$^‘‰xŒ−MO$;M5$:−:−M5$;:−""³¤TB²((40«Ã(P$(P))«23))­2:−MO$;£TB)P$(P)": "M6$:−£TB)M7$É®ŴJ²1¤1500:ŵ:™1660ϸ‰ð`êIN$²" ":ZT²TI:ZC²2:ZD$²Ç(20)jê¡Z$:⇧Z$³±""§600706tê⇧ZT³²TI§−Ê(" ¦",ZC,1);"‡";:ZC²3«ZC:ZT²TIª15A~ê⇨60010q¦êZ²Æ(Z$):ZL²Ã(IN$):⇧(Z¯127)³32§−" ‡";:⇨60110¡°ê⇧FL¯(Z¯127)±64¯(Z¯127)³91§Z$²Ç((Zª128)¯255)³ºê⇧ZL±254§60010ÎÄêIN$²IN$ªZ$:−Z$;ZD$;Z$;íÎê⇧Z²13§IN$²Ê(IN$,2):−CR$;:‰Øê⇧Z²20¯ZL±1§IN$²È(IN$,ZL«1):−"‡";:⇨60010Lâê⇧Z²141§Z$²Ç(«20¬(ZL±1)):ŴZ²2¤ZL:−Z$;:ŵZ:⇨60000Wìê⇨60010e0ò–59468,12‘5ò−"›";£15«Ã(PG$));PG$;"  BY HAL CAREYÁ:ò−"     CURSOR #";NM$;"  COPYRIGHT (C) 1981ßDòŴI²1¤13:−"ÀÀÀ";:ŵI:−"‡“À"Nò−"GET ACROSS WITHOUT GETTING CROSS+€ò−"PRESS RETURN‹ TO CONTINUEB⇩ò¡IN$:⇧IN$²""§62090M“ò−"›":†efiòCRT²32768:CR$²Ç(13)–¨òWD²40:–CRT,96:⇧Â(CRTª1024)³±96§WD²80:−Ç(142); ²ò⇨100