ZXTape! 0Created with Ramsoft MakeTZXHMATHSPACK óàhñõÿ @Ú7:Ù0:ç7:û:õ¬11 ,9 ;"Stop the Tape" Pëa=0Ì10 :ç0:×.25~ÿÿÿ,9 :ç7:×.25~ÿÿÿ,10 :óa û #õ,,,," Maths Pack" (õ,,,,,," Menu" 2õ,,,," 1...Addition" <õ,,,," 2...Subtraction" AAõ#0;" Copyright Micro Mart Software June 1984" Fú¦="1"Ëña$="1":ì100d Pú¦="2"Ëña$="2":ì100d Z ì70F d&û:õ¬11 ,9 ;"Start the Tape" nïa$ á c ?1 ÕÕ ×ÿç7:Ú7:Ù0:û ñll=1:ñri=0 tõ¬11 ,11 ;"Addition";¬13 ,0;" Copyright Micro-Mart Software";¬14,10 ;"June 1983" éa$(12 ,12 ) ña$(1)="€Œ€…€Š…€Š€ƒ€" ña$(2)="€„€€‡€€…€€ƒ‚" (ña$(3)="€Œ€€Š€‰€ƒ‚" 2ña$(4)="„Œˆ€„‚„€Š€ƒ€" <ña$(5)="€„€„‡€ƒ‡‚€€" Fña$(6)="„Œˆ…Œ€„€Š€ƒ€" Pña$(7)="€Œˆ…Œ€…€Š€ƒ€" Zña$(8)="„Œˆ€„‚€Š€€‚€" dña$(9 )="€Œ€Œ‚…€Š€ƒ€" nña$(10 )="€Œ€…€Š€ƒŠƒ€" oña$(11 )=" … ‡ƒ " pña$(12 )="€€€€€€€€€€€€" xbõ¬19,0;"Enter your skill level ?";¬21,0;"(A Low Z High)" ‚)ñb$=¦:ò1:úb$<"a"Åb$>"z"Ëì130‚ Œñsk=¯b$ ‘ñsk=sk-96` –ëa=1Ìsk:×.1}LÌÌÌ,a:óa:û ›%úsk=26Æri=10 Ëì9998'  Pñq1=º((¥*(sk*3))*¥*sk+sk*sk+¥*sk):ñq2=º((¥*(sk*3))*¥*sk+sk*sk+¥*sk) ¡úq1"9"Ëì230æ ëúx=5Ëì220Ü ð×.1}LÌÌÌ,0 ñ6úll=1Ëña=¯x$-47/:õ¬11 ,t;:í9999' ú?úx>6Æll=1Ëñx=x-3:ñt=t-3:ñtt=tt-1 þ útt>1Ëñt$(tt-1)=" " ÿúll=1Ëñt$(tt)=x$ ñll=1:ì220Ü è*ëg=1Ì6:út$(g)É" "Ëì1003ë éóg ê ì1015÷ ëñan=°t$:ñany=q1+q2 òúan=anyËì3000¸ ÷ úh=1Ëû ü ç2:óh 6êëz=10Ì14:õ¬z,0;" ":óz Ðç2:ñri=0 Ñúsk>1Ëñsk=sk-1 Öêóz ÚUõ¬19,14;"WRONG":×1,20:×1,10 :×1,0 ä]ëa=1Ì70F:ö128€,87W:üº(¥*256)-128€,º(¥*167§)-87W:óa îò502:ç7:û øvÙº(¥*7):ñx=20-±q$*3:ëz=1̱q$:ñx=x+3:õ¬0,0;:ña=(¯q$(z))-47/:í9999' óz  vÙº(¥*7):ñx=20-±u$*3:ëz=1̱u$:ñx=x+3:õ¬5,0;:ña=(¯u$(z))-47/:í9999' óz Cña=11 :ñx=19-±u$*3:õ¬5,0;:í9999' =Ù0:ëa=19-±u$*3Ì22:õ¬9 ,a;"Œ":óa  vñn$=Á(q1+q2):ñx=20-±n$*3:ëz=1̱n$:ñx=x+3:õ¬11 ,0;:ña=(¯n$(z))-47/:í9999' *óz 4Gõ¬19,3;"This is the correct answer.":ò100d:ì150– ·7ç7:ëf=11 Ì14:õ¬f,t+3;" ":óf:þ ÂnÙ3:ëa=30Ì45-:ö230æ,100d:ü-a,-80P:ö165¥,40(:üa-10 ,-20:óa Ç–ñri=ri+1:úri=6Æsk<26Ëñsk=sk+1:ñri=0:ò200È:û:õ¬0,0;"Well done your level increases":í9997 ' Ì1ò502:ò502:Ú7:Ù0:ì150– ' áñy=º(¥*70F)+100d:ñx=º(¥*60<):ñz=º(¥*3)-4:ër=yÌxÍz:ör,r:ü0,175¯-2*r:ü255ÿ-2*r,0:ü0,-175¯+2*r:ü-255ÿ+2*r,0:Ù¥*6:Þ1:ór:þ '­û:ëa=230æÌ80PÍ-4:üa,0:ü0,(a-80P):ü2-a,0:ü0,(82R-a):óa:õÞ0;¬12 ,11 ;"THE END":ò250ú:ì1 '{Þ1:õ­x;a$(a,1Ì3);­x;a$(a,4Ì6);­x;a$(a,7Ì9 );­x;a$(a,10 Ì12 ):Þ0:þ - E2 §§ÞR©ÿç7:Ú7:Ù0:û ñll=1:ñri=0 uõ¬11 ,10 ;"Subtraction";¬13 ,0;" Copyright Micro-Mart Software";¬14,11 ;"June 1983" éa$(12 ,12 ) ña$(1)="€Œ€…€Š…€Š€ƒ€" ña$(2)="€„€€‡€€…€€ƒ‚" (ña$(3)="€Œ€€Š€‰€ƒ‚" 2ña$(4)="„Œˆ€„‚„€Š€ƒ€" <ña$(5)="€„€„‡€ƒ‡‚€€" Fña$(6)="„Œˆ…Œ€„€Š€ƒ€" Pña$(7)="€Œˆ…Œ€…€Š€ƒ€" Zña$(8)="„Œˆ€„‚€Š€€‚€" dña$(9 )="€Œ€Œ‚…€Š€ƒ€" nña$(10 )="€Œ€…€Š€ƒŠƒ€" oña$(11 )=" ƒƒ " pña$(12 )="€€€€€€€€€€€€" xbõ¬19,0;"Enter your skill level ?";¬21,0;"(A Low Z High)" ‚ ñb$=¦:úb$<"a"Åb$>"z"Ëì130‚ Œñsk=¯b$ ‘ñsk=sk-96` –ëa=1Ìsk:×.1}LÌÌÌ,a:óa:û ›%úsk=26Æri=10 Ëì9998'  Pñq1=º((¥*(sk*3))*¥*sk+sk*sk+¥*sk):ñq2=º((¥*(sk*3))*¥*sk+sk*sk+¥*sk) ¡úq1"9"Ëì230æ ëúx=5Ëì220Ü ð×.1}LÌÌÌ,0 ñ6úll=1Ëña=¯x$-47/:õ¬11 ,t;:í9999' ú?úx>6Æll=1Ëñx=x-3:ñt=t-3:ñtt=tt-1 þ útt>1Ëñs$(tt-1)=" " ÿúll=1Ëñs$(tt)=x$ ñll=1:ì220Ü è*ëg=1Ì6:ús$(g)É" "Ëì1003ë éóg ê ì1015÷ ëñan=°s$:ñany=q1-q2 òúan=anyËì3000¸ ÷ úh=1Ëû ü ç2:óh Ðç2:ñri=0 Ñúsk>1Ëñsk=sk-1 ÚUõ¬19,14;"WRONG":×1,20:×1,10 :×1,0 ä]ëa=1Ì70F:ö128€,87W:üº(¥*256)-128€,º(¥*167§)-87W:óa îò502:ç7:û øvÙº(¥*7):ñx=20-±q$*3:ëz=1̱q$:ñx=x+3:õ¬0,0;:ña=(¯q$(z))-47/:í9999' ùóz úvÙº(¥*7):ñx=20-±u$*3:ëz=1̱u$:ñx=x+3:õ¬5,0;:ña=(¯u$(z))-47/:í9999' ûóz Cña=11 :ñx=19-±u$*3:õ¬5,0;:í9999'  =Ù0:ëa=19-±u$*3Ì22:õ¬9 ,a;"Œ":óa vñn$=Á(q1-q2):ñx=20-±n$*3:ëz=1̱n$:ñx=x+3:õ¬11 ,0;:ña=(¯n$(z))-47/:í9999'  óz *Gõ¬19,3;"This is the correct answer.":ò100d:ì150– ·Bò100d:ç7:ëf=11 Ì14:õ¬f,t+3;" ":óf:þ ÂnÙ3:ëa=30Ì45-:ö230æ,100d:ü-a,-80P:ö165¥,40(:üa-10 ,-20:óa Ç–ñri=ri+1:úri=6Æsk<26Ëñsk=sk+1:ñri=0:ò200È:û:õ¬0,0;"Well done your level increases":í9997 ' Ì1ò502:ò502:Ú7:Ù0:ì150– ' áñy=º(¥*70F)+100d:ñx=º(¥*60<):ñz=º(¥*3)-4:ër=yÌxÍz:ör,r:ü0,175¯-2*r:ü255ÿ-2*r,0:ü0,-175¯+2*r:ü-255ÿ+2*r,0:Ù¥*6:Þ1:ór:þ '­û:ëa=230æÌ80PÍ-4:üa,0:ü0,(a-80P):ü2-a,0:ü0,(82R-a):óa:õÞ0;¬12 ,11 ;"THE END":ò250ú:ì1 '{Þ1:õ­x;a$(a,1Ì3);­x;a$(a,4Ì6);­x;a$(a,7Ì9 );­x;a$(a,10 Ì12 ):Þ0:þ Z