home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9012a.d64 / ask (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  22 lines
  1. 0 REM      SAVE"@:ASK",8                : REM * BY AUGUST SCHWAB, A-8010 GRAZ *
  2. 1 G=8:OPEN1,G,15:OPEN2,G,2,"ASK.REL,L,"+CHR$(38):POKE53280,0:POKE53281,0:F=256
  3. 2 DIMA(99):POKE808,230:POKE53272,23:FORI=0TO38:O$=O$+" ":U$=U$+"[192]":NEXT:N$(0)="[206]
  4. 3 [153]"LOAD"U$" ATN (null) (null)   LISTMID$=MID$A LIST(null)=(null)EIN LIST^=(null)URUECK LISTATN=ATNENDERN":[153]""U$
  5. 4 J$(1)[178]" ":J$(0)[178]"MID$":D$[178][199](13):C$[178][199](0):Y[178]1:[141]15:L[178]R(0):Y[178]2:[139]L[179]2[167]L[178]2
  6. 5 [139]Y[178]0[167][133]"CONTASCRAG   =CMDCMDCMD";G$:[153]"ON     ":A$[178][200](G$,1):J[178]1:SP[178]1:[137]13
  7. 6 N$(1)[178]" ":[141]15:M$[178]"SYS "[170]J$([171](R(1)[178]0))[170]"/"[170]N$([171](R(0)[178]0))[170]" ?LIST ":[139]Y[178]0[167]5
  8. 7 J[178]2:A(Q)[178]Y:Q[178]Q[170]1:[153]M$F$:[151]198,0:[146]198,1:[161]A$:[139]A$[178]"^"[167]13
  9. 8 [139]A$[178]"N"[167][153]"ONLIST(null)EIN ":X[178]Y:Y[178]R(0):Z[178]0:[137]5
  10. 9 [139]A$[178]"A"[167][133]"ONATNEND ";F$:[153]"ON    ":[141]17:[153]"ONON":[137]7
  11. 10 [153]"ON  MID$A ":[139][200](F$,1)[179][177]"="[167]X[178]Y:Y[178]R(1):Z[178]1:[137]5
  12. 11 [139]SP[167]Y[178]1:R(0)[178]L:R(1)[178]0:F$[178]"DATA":[141]17
  13. 12 [160]2:[160]1:[153]""U$:[151]198,0:[146]198,1:[161]A$:[138]
  14. 13 [139]A$[178]"^"[167]Q[178](Q[171]J)[172][171]((Q[171]J)[177][171]1):Y[178]A(Q):[153]"ON"O$"ONONONON":[137]5
  15. 14 R(Z)[178]L:Y[178]X:[141]17:F$[178]G$:Y[178]L:L[178]L[170]1:R(0)[178]0:R(1)[178]0:[141]17:[153]"ONON":[137]7
  16. 15 [141]18:[132]2,F$:[129]I[178]0[164]3:[161]#2,X$(I):[130]:[139][195](F$)[179]32[167]Y[178]0:[142]
  17. 16 [129]I[178]0[164]3:X(I)[178][198](X$(I)[170]C$):[130]:R(0)[178]X(0)[172]F[170]X(1):R(1)[178]X(2)[172]F[170]X(3):[142]
  18. 17 [141]18:[152]2,[200](F$[170]O$,32)D$[199](M)[199](N)[199](U)[199](V)"X";:[142]
  19. 18 [141]20:[152]1,"P"[199](98)[199](P)[199](O)[199](1)
  20. 19 [132]1,E:[139]E[178]50[167][152]2,[199](255);:[137]18
  21. 20 O[178][181](Y[173]F):P[178]Y[171]O[172]F:M[178][181](R(0)[173]F):N[178]R(0)[171]M[172]F:U[178][181](R(1)[173]F):V[178]R(1)[171]U[172]F:[142]
  22.