home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / EQUATIONS.ARC / EQUATIONS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.2 KB  |  101 lines
  1. 1 IFA=.THENA=1:B=53280:POKEB,.:POKEB+A,.:A(.)=49921:PRINT"[147]":LOAD"JCODE",8,A
  2. 2 A(1)=49946:B1=.:B2=1:A(3)=10:A3=49225:V=B-32:POKEV+39,13:GOSUB98:SYS49675
  3. 3 B(.)=INT(RND(1)*2):B(1)=-(B(.)=.)
  4. 4 DATA +,-,/,*,(,SQR(,^,=:FORX=1TO8:READOP$(X):NEXT:FI=INT(RND(1)*100)+1
  5. 5 INPUT"[147]LENGTH [155][5-15]   7[157][157][157][155]";B$:M=VAL(B$):IFM<5ORM>15GOTO5
  6. 6 INPUT"<[155]H>ARD  <[155]E>ASY  E[157][157][157][155]";A$:A(2)=U-3*(A$="H"):FORX=.TO1
  7. 7 PRINT"[150]PLAYER[155]"X+1"";:INPUTPL$(B(X))
  8. 8 NA$(B(X))=LEFT$("[184][184][184][184][184] "+PL$(B(X))+WI$,17)
  9. 9 NEXT:POKETE+4,M:DIMTA$(42),I(42):PRINT"[147]":FORY=.TO1:X=.:POKES,4-56*(Y=.)
  10. 10 PRINT"[147]":FORR0=1TO17STEP6:FORN=.TO34STEP5:BL=INT(RND(1)*A(Y+2))-(Y=.)
  11. 11 POKEA(Y)+X,BL-48*(Y=1):X=X+1:GOSUB51:NEXT:NEXT:POKEL,19:PRINT:FORN=.TO2
  12. 12 PRINT"[150]  "WI$WI$WI$:NEXT:PRINTK$STR$(FI)TAB(18)""M$(Y)TAB(30)M"[157] ":NEXT
  13. 13 PRINT"  >> <CR>  BEGIN  <SPACE>  FLIP<<
  14. 14 [161]A$:[139]A$[179][177]R$[175]A$[179][177]" "[137]14
  15. 15 [139]A$[178]R$[167][151]648,4:[137]18
  16. 16 AV[178]224[172][171](AV[178].):R0[178]56[172][171](R0[178].)
  17. 17 [151]B[171]8,([194](B[171]8)[175]15)[176]16[170]AV:[151]S,4[170]R0:[137]14
  18. 18 [151]781,1:[158]59903:[151]V[170]21,1:[150][165]Q(X)[178][194](A(.)[171]1):[129]XY[178]1[164]M:[129]X[178].[164]1
  19. 19 [151]S,4[171]56[172](X[178].):[153]"SYS"NA$([194](A3))[163]19)""CE$:[130]:LO[178][165]Q(.)
  20. 20 [158]TEM:[129]X[178]1[164]35:F[178].:F[178]F[171]([194](145)[178]223):[139]F1[179]2[167]F[178]F[170](LO[179][165]Q(.))
  21. 21 X[178]X[171]L[172](F[177].):[130]:F[178][171](F[178]1):[139]F1[178].[167]Q[178][194](A3):FL[178][171](Q[178].):[151]A3,FL:F1[178][171](F[177].)
  22. 22 [145]F[170]1[137]25
  23. 23 [139]F1[178]2[175]LO[178][165]Q(LO)[137]20
  24. 24 [139]F1[178]1[167]CE$[178]NA$(FL):NA$(FL)[178]P$:BU$(Q)[178]"C":F1[178]2:XY[178]XY[171]1
  25. 25 [130]:TP[178][194](A(.)[171]1):F[178].:[139]F1[177].[137]28
  26. 26 [129]XY[178]1[164]35:[158]50069:F[178]F[171]([194](145)[178]223):XY[178]XY[171]L[172](F[178]1):[130]
  27. 27 [139]F[177].[167]BU$([194](A3))[178]"C
  28. 28 POKEV+21,.:POKEB-8,(PEEK(B-8)AND15)OR16:POKES,4:PRINT"[147]
  29. 29 [129]X[178]1[164]TP:TA$(X)[178][202]([196]([194](49966[170]X)),2):[130]
  30. 30 [129]PL[178].[164]1:[139]BU$(PL)[178]"C"[167]B$[178]"0":[137]50
  31. 31 [141]76:[151]K,.:[151]B,.:[129]X[178]1[164]TP:I(X)[178].:[130]
  32. 32 [129]X[178]15[164]25:[151]781,X:[158]59903:[151]X[170]217,[194](X[170]217)[176]128:[130]
  33. 33 [151]L,17:[153]:[153]"ALL RIGHT,DEF"PL$(PL)"WAIT, ENTER YOUR"R$"EQUATION.";
  34. 34 [153]"USE LISTALLWAIT ELEMENTS ABOVE.":B$[178]"":PA[178].:SQ[178].:LG[178].:DG[178].:[137]49
  35. 35 [161]A$:A[178][198](A$[170][199](.)):[139]A[178].[176](A[178]41[175]PA[178].)[137]35
  36. 36 [145][171](A[178]13)[171]2[172](A[178]20)[171]3[172](A[178]95)[137]42,49,31
  37. 37 [139][195](AV$)[178]2[137]35
  38. 38 [139]A[178]81[167]B$[178]".":[137]50
  39. 39 [139]A[178]41[167]AV[178]255:B$[178]B$[170]A$:PA[178]PA[171]1:[151]B,PA:[137]46
  40. 40 [139](LG[178]TP[175]PA[177].)[176]SQ[178]2[137]35
  41. 41 AV$[178]AV$[170]A$:[151]L,17:[153]R$"PRINT#"K$FI"CMD "[163]17)"DEF    CMDCMDCMD"AV$;:[137]35
  42. 42 AV[178][197](AV$):VL[178][197](TA$(AV)):[139](AV[179]1[176]AV[177]TP)[176]I(AV)[178]1[176](VL[177]47[175]DG[177].)[137]49
  43. 43 [139]VL[177]47[167]B$[178]B$[170][199]([197](TA$(AV))):SQ[178]SQ[171](SQ[178]1):LG[178]LG[170]1:DG[178]1:[137]46
  44. 44 [139]((VL[177]2)[175](VL[179]5[176]VL[177]6))[175]LG[178].[137]49
  45. 45 B$[178]B$[170]OP$(VL):DG[178].:LG[178]LG[170]1:[139]VL[178]5[176]VL[178]6[167]PA[178]PA[170]1:[151]B,PA[170]1
  46. 46 [151]L,20:[153]R$"OPEN"B$:[139]LG[178]TP[175]PA[178].[137]50
  47. 47 [139](LG[178]TP[175]PA[177].)[176]AV[178]255[137]49
  48. 48 I(AV)[178]1:R0[178][181]((AV[171]1)[173]3):CO[178]AV[171](R0[172]3)[171]1:[153][200](RO$,R0[170]2)[163]CO[172]13)WI$
  49. 49 AV$[178]"":A$[178]"":[137]41
  50. 50 BU$(PL)[178]B$:[130]:[137]81
  51. 51 [141]74:[139]Y[178]1[167][145]BL[171]10[172](BL[178].)[137]53,54,55,56,57,58,59,60,61,62
  52. 52 [145]BL[137]63,64,65,66,67,68,69,73
  53. 53 [153]G$"ABS"I$Y$:[129]Z[178].[164]1:[153][163]N)F$:[130]:[153][163]N)G$"ABS"W$G$Y$:[137]72
  54. 54 [153]J$R$[163]N)L$R$[163]N)H$"NEWNEW"V$R$[163]N)J$:[137]72
  55. 55 [153]H$"POS"O$R$[163]N)S$"*"I$R$[163]N)S$"LOG"I$R$[163]N)H$"FRE"O$:[137]72
  56. 56 [129]Z[178].[164]1:[153][163]N)G$"GET"Y$I$:[130]:[153][163]N)G$"FREFRE"W$"COS"R$[163]N)L$:[137]72
  57. 57 [153]H$"NEWNEW"V$R$[163]N)M$R$[163]N)G$"USRUSR"I$R$[163]N)H$"NEW"I$:[137]72
  58. 58 [153]H$"NEW"O$R$[163]N)M$R$[163]N)H$"POS"O$R$[163]N)H$"NEW"I$:[137]72
  59. 59 [153]H$"POS"O$:[129]Z[178].[164]2:[153][163]N)L$:[130]:[137]72
  60. 60 [153]H$"NEW"O$R$[163]N)G$"WAITRNDFRE*"V$R$[163]N)E$R$[163]N)H$"FRE"O$:[137]72
  61. 61 [153]H$"POS"O$R$[163]N)H$"FRE"O$R$[163]N)L$R$[163]N)H$"FRE"O$:[137]72
  62. 62 [153]H$"POS"O$R$[163]N)E$R$[163]N)H$"SIN"O$R$[163]N)H$"FRE"O$:[137]72
  63. 63 [153]F$R$[163]N)J$R$[163]N)F$:[137]71
  64. 64 [141]75:[153]J$:[137]70
  65. 65 [153]S$"(null)"X$R$[163]N)J$R$[163]N)S$"(null)"X$:[137]71
  66. 66 [153]G$"* RND"Y$R$[163]N)S$"(null)"X$R$[163]N)G$"LOG COS ":[137]71
  67. 67 [153]E$:[129]Z[178].[164]1:[153][163]N)G$"INT ABS ":[130]:[153][163]N)E$:[137]72
  68. 68 [141]75:[153]G$"(null)(null)USR ":[137]70
  69. 69 [141]75:[153]G$" (null)(null) "
  70. 70 [141]75
  71. 71 [141]75
  72. 72 [153][163]N)"(null)ANDANDANDAND":[142]
  73. 73 [141]75:[129]Z[178].[164]1:[153][163]N)G$"TANTANTAN ":[130]:[137]71
  74. 74 [151]C,(BL[175]15)[170]1:[151]L,R0:[153]
  75. 75 [153][163]N)G$X$X$R$[163]N);:[142]
  76. 76 [153]"LOAD":[129]X[178]1[164]TP[169]3:Z[178].
  77. 77 Z$[178][201]("0"[170][202]([196](X[170]Z),2),2):VL[178][197](TA$(X[170]Z)):[139]VL[178].[167]X[178]TP[170]1:[137]80
  78. 78 [153][163]Z[172]13)"<"Z$">WAITPRINT#"[163]Z[172]13[170]6)[199](VL[172][171](VL[177]47))OP$(VL[172][171](VL[179]11));
  79. 79 Z[178]Z[170]1:[145][171](Z[179]3)[137]77
  80. 80 [153]:[130]:[142]
  81. 81 [153]T$"WAIT96FI="FI":BU$(.)="Q$BU$(.)Q$":PL$(.)="Q$PL$(.)
  82. 82 [153]"97BU$(1)="Q$BU$(1)Q$":PL$(1)="Q$PL$(1)R$U$"G(null)83STOP":[137]85
  83. 83 [141]96:[153]T$"103A="BU$(.)R$"104B="BU$(1)R$"G(null)84":[137]85
  84. 84 [141]96:[153]T$"G(null)103"U$R$"G(null)104"U$R$"G(null)86
  85. 85 FORX=631TO640:POKEX,13:NEXT:POKEK,10:STOP
  86. 86 GOSUB96:BL=INT(FI/10):N=8
  87. 87 N=N+6:F1=F1+1:Y=1:R0=3:GOSUB51:BL=FI-BL*10:ONF1GOTO87
  88. 88 A=INT(A):B=INT(B):FI=INT(FI):A(.)=-(B=FI):A(1)=-(A=FI):POKEL,7
  89. 89 PRINTR$""K$C$:FORX=.TO1:PRINTA$"[155]"PL$(X)TAB(10)"[158]";:Y=B:IFX=.THENY=A
  90. 90 PRINTTAB(10)CHR$(-42*(BU$(X)="0"))TAB(12)"[158]"YTAB(18);:IFY=FITHENCH=.:GOTO93
  91. 91 IFA(X)=.ANDBU$(X)="0"GOTO93
  92. 92 PRINT">>[155] DIDN'T COMPUTE <<":FORXY=.TO1:SYS50023:NEXT:GOTO94
  93. 93 PRINT"[155]*** >> WINNER <<[155][146] ***":FORXY=.TO1:SYS50069:NEXT
  94. 94 PRINTR$R$:NEXT:POKEK,.:INPUT"AGAIN  Y[157][157][157][155]";C$:IFC$="Y"THENRUN
  95. 95 END
  96. 98 U$="":T$="[147][144]"+U$:V$=" ":W$="[146] ":C$=""+U$:G$="[165]":RO$=""+C$+C$+C$
  97. 99 X$="  ":H$=G$+W$:I$=W$+V$:J$=H$+X$+V$:E$=H$+V$+I$:L$=G$+X$+I$:M$=H$+V$+X$
  98. 100 Y$=" ":O$=Y$+V$:S$=G$+Y$:F$=S$+I$+Y$:M$(.)="DIGITS":U=5:M$(1)="OPERATORS
  99. 101 K$[178]"ONON ANSWER IS ":K[178]198:L[178]214:TE[178]49152:P$[178]" CHALLENGE FREFREFREFREFRE<*>
  100. 102 C=646:S=C+2:Q$=CHR$(34):A$=CHR$(142):R$=CHR$(13):WI$="           ":RETURN
  101.